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«««»»««]|[«S«**«*««*«»***«)r«]|c»«3««$S««««««;«««*«««4at;««»«s« 



« INTERPRETER 



VERSION 13,2 



12,6,81 



»««*»««««]|[»««««»*««)!(4t»»«»««)(c«««)#«i4[W$««««.if««#4c#«««»«»9«« 



NIKLAUS WIRTH WERNER VINIGER 
INSTITUT FUER INFORMATIK 
ETH ZENTRUM 
CH-8092 ZUERICH 

M-CODE INTERPRETER 

BOOTSTRAP/DUMP 

DISPLAY HANDLING PROCEDURES 

REAL OPERATIONS 



7,0 10 WITH REARRANGED DELAY 

DIVISION WITH CORRECT REMAINDER 
BOOTSTRAP/DUMP FROM/TO DISK 
SPEED CATEGORIES INTRODUCED 

8.0 F0R2 CORRECTED 

FREE LOCATIONS ASSEMBLED BEFORE LI0 
INTERRUPT LOCATIONS NEWLY DISTRIBUTED 

8.1 BOOTSTRAP CORRECTED 
PUT TO DISK SLOWN DOWN 

9.0 P-REGISTER INTRODUCED 

PRIORITY HANDLING (M-REGISTER) ENHANCED 
INSTRUCTIONS REORDERED 
CODE FRAME TABLE REMOVED 

9.1 SHL CORRECTED 

NEW MAP CONCEPT ADAPTED 

10.0 INSTRUCTION SET EXTENDED 
CHECKS ADDED 

TRAP NUMBERS CHANGED 

10.1 REAL ARITHMETIC ADDED 
11,0 MULTIPLICATION CORRECTED 

128K DUMP 
FIXED DISK BOOT 

12.0 REALS CORRECTED 

MAP PROM ADDRESSED LOCATIONS ASSEMBLED CONTIGUOUS 

12.1 PUT/GET SLGWN DOWN 

13.0 MUL10 REMOVED 

DMUL, DDIV, DMUL2, DDIV2, ESC INSERTED 

13.1 NEG (TRAP) CORRECTED 

13.2 ERRORS IN REPLICATE CORRECTED, SYS; 5 -> 1 
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DEFINITION OF THE SPEED CATEGORIES: 



SLOW A 


; JMAP 




B 


CONDITIONAL JUMP S JSR 


< 


C 


UNCONDITIONAL JUMP S JSR 


< 


D 


RETURN 


< 

> DISABLED 


E 


BUS SOURCE = MD 


< 


F 


BUS DESTINATION = MAR 


< 


G 


BUS SOURCE = IR/IR4/IR* 


< 


SLOW H 


: PUT (DISK) 





Inforraatik ETH Zuerich Micro-Code- Assembler 'MIA' 

FT SP PC S E BD BS COMMENT 

- JMP TO THE BOOTSTRAP CODE 

- 1 2 KBDATA -> R5 

- JSR 6ET(KBDATA, DUMMY) 

- 1 4 4 -> R3 

- MAR ALU R3 -> MAR 

- 8 ALU MD MD ~> P 

R3 <> e 

- JSR RESTORE REGS(TRUE) 
- S JMP - ALU IR4 JMAP 





4 


3 2 


1 


LABEL 


K DST FCT 


RS 


CAB 





4D 


08 07 


20 0F 


ZERO 


START 




T 


1 


6F 


E0 AC 


70 02 


#RESTART 


1 B OR 


DZ 


- 5 


2 


46 


48 03 


20 0F 




#GET 




T 


3 


6F 


E0 6C 


70 04 




IB OR 


DZ 


- 3 


4 


2E 


66 0C 60 30 




1 - OR 


ZA 3 - 


5 


6F 


El 4C 


60 01 




1 B OR 


DZ 


- P 


6 


43 


E8 03 


20 0F 




#RESTREGS 


T 


7 


0F 


E0 0F 


E0 03 




1 Q OR 


DZ 


- - 


8 


42 


38 07 


20 0F 


#RE08 


#LINE8 




T 


9 


42 


18 07 


20 0F 


#RE09 


#LINE9 




T 


A 


41 


F8 07 


20 0F 


#REQ10 


#LINE10 




T 


B 


41 


D8 07 


20 0F 


#RE011 


#LINE11 




T 


C 


41 


B8 07 


20 0F 


#RE012 


#CLOCK 




T 


D 


41 


98 07 


20 0F 


#RE013 


#DISK 




T 


E 


41 


78 07 


20 0F 


#REQ14 


#LINE14 




T 


F 


41 


58 07 


20 0F 


#RE015 
$ 


#LINE15 




T 
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JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 



GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 



LINES 

LINE9 

LINE10 

LINEll 

CLOCK 

DISK 

LINE14 

LINE 14 
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.MAP 0, 1, 2, 3, 4, 5, 6, 7, 19, 11, 12, 13, 14, 15, 16, 17 



10 


40 


7F 


EC 


40 


0F 


LIB 




1 


B« 


OR 


ZQ 


T 


T 


- 


— - 


S 





PSH 


- 


T -> STK 


, -> T 


T 


11 


0F 


E3 


0F 


E0 


03 






1 


OR 


DZ 8 


- 


- 


- 


- S JMP 


- 


B 


ALU 


IR4 


JMAP 



















.MAP 


20 
































12 


4F 


FF 


EC 


40 


04 


LIB 




1 


B» 


OR 


DZ B 


T 


T 


- 


_ _ . 


S 





ALU 


IR 


T -> STK 


, IR -> T 


T 


13 


0F 


E0 


0F 


E0 


03 






1 





OR 


DZ 


- 


- 


- 


- S JMP 


- 





ALU 


IR4 


JMAP 




Q 














. MAP 21 


NOT 


USED 






































.MAP 


22 
































14 


4F 


FF 


E4 


48 


04 


LIW 




1 


B« 


OR 


DZ 


T 


T 


R 


10 - - 


s 


B 


ALU 


IR 


T->STK, 


;iRtl0) -> T 


T 


15 


6E 


FF 


EC 


60 


04 






1 


B 


OR 


DA 


T 


T 


- 


- — 


- 


e 


ALU 


IR 


IR OR T 


-> T 


T 


16 


0F 


E0 


0F 


E0 


03 


.MAP 


23 


1 





OR 


DZ 








- S JMP 







ALU 


IR4 


JMAP 




Q 


17 


4F 


FF 


E4 


48 


04 


LID 




1 


B» 


OR 


DZ 


T 


T 


R 


IB - - 


s 


e 


ALU 


IR 


T->STK, 


;iRtlB) -> T 


T 


18 


BE 


FF 


EC 


60 


04 






1 


B 


OR 


DA 


T 


T 


- 


- — 


- 





ALU 


IR 


IR OR T 


-> T 


T 


19 


4F 


FF 


E4 


48 


04 






1 


B» 


OR 


DZ 


T 


T 


R 


10 - - 


s 





ALU 


IR 


T->STK, 


[IRtl0) -> T 


T 


lA 


6E 


FF 


EC 


60 


04 






1 


B 


OR 


DA 


T 


T 


- 


— _ 


- 





ALU 


IR 


IR OR T 


-> T 


T 


IB 


0F 


E0 


0F 


E0 


03 


.MAP 


24 


1 


Q 


OR 


DZ 








- S JMP 







ALU 


IR4 


JMAP 







IC 


4F 


FF 


EC 


40 


B4 


LLA 




1 


B. 


OR 


DZ 


T 


T 


- 


.. — 


s 





ALU 


IR 


T -> STK 


, IR -> T 


T 


ID 


60 


FD 


EC 


60 


FF 






1 


B 


+ 


AB 


L 


T 


- 





- 





- 


- 


L+T -> T 




L T 


IE 


BF 


EB 


BF 


EB 


B3 


.MAP 


25 


1 





OR 


DZ 








- S JMP 







ALU 


IR4 


JMAP 




Q 


IF 


4F 


FF 


EC 


40 


04 


LGA 




1 B* 


OR 


DZ 


T 


T 


- 





S ALU 


IR 


T -> STK 


IR -> T 


T 


20 


60 


FB 


EC 


60 


FF 






1 


B 


+ 


AB 


G 


T 


- 


-. 


- 





- 


- 


G+T -> T 




G T 


21 


0F 


E0 


0F 


E0 


03 


.MAP 


26 


1 





OR 


DZ 








- S JMP 







ALU 


IR4 


JMAP 




Q 


22 


62 


FF 


EC 


60 


04 


LSA 




1 


B 


+ 


DA 


T 


T 


- 





- 





ALU 


IR 


IR+T -> " 


r 


T 


23 


3E 


22 


07 


2B 


0F 






9 


TRAP(5) 


C 








- JMP 










TRAP IF ( 


DVERFLOy 




24 


0F 


E0 


0F 


E0 


03 


.MAP 


27 


1 


Q 


OR 


DZ 








- S JMP 







ALU 


IR4 


JMAP 




Q 


25 


6F 


E0 


0C 


60 


04 


LEA 




1 


B 


OR 


DZ 


- 


B 


- 





- 





ALU 


IR 


IR -> Re 







26 


62 


E0 


0C 


70 


20 






1 


B 


+ 


DA 





8 


- 


_ _ _ 


- 


1 


40 




40 * R8 


-> R9 





27 


2E 


60 


0C 


60 


30 






1 


- 


OR 


ZA 


8 


- 


- 


- — 


_ 





MAR 


ALU 


RB -> MAR 


B 


28 


4F FE 


0C 


40 


04 






1 


B* 


OR 


DZ 


T 





- 





s 





ALU 


IR 


IR -> R0 


T -> STK 


T 


29 


62 


El 


EC 


63 


01 






1 


B 


+ 


DA 





T 


- 





- 





ALU 


MD 


MD ■>■ R0 


-> T 


T 


2A 


0F 


EB 


BF 


E0 


03 






1 





OR 


DZ 


- 


- 


- 


- S JMP 


- 





ALU 


IR4 


JMAP 




Q 
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.MAP 30 


























2B 


2E 


7E 0C 60 FF 


JPC 


1 - 


OR 


ZA 8 


T 


- 





- 





- 


- 


T 


T 


2C 


04 


19 07 


20 0F 




B #SKIP2 


-Z 






- JMP 










JMP IF #0 




2D 


6F 


El EC 


40 FF 


•MAP 31 


1 B 


OR 


DZ 




T 




S 





POP 




STK -> T 


T 


2E 


6F 


E0 0C 


60 02 


JP 


1 B 


OR 


DZ a 


- 





_ 


- 





ALU PC 


PC -> R0 





2F 


62 


E0 04 


68 04 




1 B 


+ 


DA 8 


8 





R 18 - - 


- 





ALU 


IR 


(IRn0)+R0 -> R0 





30 


62 


E0 0C 


60 06 




1 B 


+ 


DA 8 








- — - 


- 





ALU 


IR« 


R0+IR -> R0 





31 


2E 


60 0C 


60 20 




1 - 


OR 


ZA 





- 


- - — 


- 





PC 


ALU 


R0 -> PC 


8 


32 


0F 


E0 0F 


E0 03 


.MAP 32 


1 Q 


OR 


DZ 8 






- - S JMP 







ALU 


IR4 


JMAP 





33 


2E 


7E 0C 


60 FF 


JPFC 


1 - 


OR 


ZA 8 


T 


- 


_ 


- 





- 


- 


T 


T 


34 


04 


29 07 


20 0F 




#SKIP1 


-Z 






- JMP 










JMP IF #0 




35 


6F 


El EC 


40 FF 


.MAP 33 


1 B 


OR 


DZ 8 




T 




s 





POP 




STK -> T 


T 


36 


6F 


E0 0C 


60 02 


JPF 


1 B 


OR 


DZ 8 


- 


8 





- 





ALU 


PC 


PC -> R0 


8 


37 


62 


E0 0C 60 06 




1 B 


+ 


DA 8 








_ — - 


- 





ALU 


IR. 


R0-<-IR -> R0 


8 


38 


2E 


60 0C 


60 20 




1 - 


OR 


ZA 





- 


- - — 


- 





PC 


ALU 


R0 -> PC 


8 


39 


0F 


E0 0F 


E0 03 


.MAP 34 


1 


OR 


DZ 






- - S JMP 







ALU 


IR4 


JMAP 


Q 


3A 


2£ 


7E 0C 


60 FF 


JPBC 


1 - 


OR 


ZA 8 


T 


- 


- - - - 


- 





- 


- 


T 


T 


3B 


04 


29 07 


20 0F 




#SKIP1 


-Z 






- JMP 










JMP IF #0 




3C 


6F 


El EC 


40 FF 


.MAP 35 


1 B 


OR 


DZ 8 




T 




s 





POP 




STK -> T 


T 


3D 


6F 


E0 0C 


60 02 


JPB 


1 B 


OR 


DZ 8 


- 





_ — - 


- 


8 


ALU 


PC 


PC -> R0 





3E 


66 


00 0C 


60 06 




1 B 


- + 


DA 1 








_ — - 


- 





ALU 


IR« 


R0-IR -> R0 





3F 


2E 


60 0C 


60 20 




1 - 


OR 


ZA 8 





- 


_ - . _ 


_ 





PC 


ALU 


R0 -> PC 





40 


0F 


E0 0F 


E0 03 




1 Q 


OR 


DZ 


- 


- 


- - S JMP 


- 





ALU 


IR4 


JMAP 


Q 


41 


2D 


60 0C 


60 F4 


#SKIP2 


1 - 


OR 


ZQ 8 


- 


_ 


_ _ _ 


_ 





_ 


IR 


IR 


Q 


42 


6F 


El EC 


40 F4 


#SKIP1 


1 B 


OR 


DZ 


- 


T 





s 





POP 


IR 


IR, STK -> T 


T 


43 


0F 


E0 0F 


E0 03 


.MAP 36 


1 Q 


OR 


DZ 






- - S JMP 







ALU 


IR4 


JMAP 


Q 


44 


2E 


7E 0C 


60 FF 


ORJP 


1 - 


OR 


ZA 


T 


- 


- - — 


- 





- 


- 


T 


T 


45 


04 


Al 07 


20 0F 




#0R1 


Z 






- JMP 










IF T = 




46 


6F 


E0 0C 


60 02 


#AND1 


1 B 


OR 


DZ 


_ 





_ _ _ 


, 





ALU 


PC 


PC -> R0 


8 


47 


62 


E0 0C 


60 06 




1 B 


+ 


DA 








. — _ 


- 





ALU 


IR* 


IR + R0 -> R0 





48 


2E 


60 ec 


60 20 




1 - 


OR 


ZA 





- 





- 





PC 


ALU 


R0 -> PC 





49 


0F 


E0 0F 


E0 03 




1 Q 


OR 


DZ 


- 


- 


- - S JMP 


- 





ALU 


IR4 


JMAP 


Q 


4A 


63 


C0 0C 


60 02 


#0R1 


1 B 


+ 


DZ 1 


_ 


8 


_ _ _ 


_ 


ALU PC 


PC + 1 -> R0 





4B 


4F 


El EC 


40 20 




1 B* 


OR 


DZ 





T 


_ — . 


s 





PC 


ALU 


R0 -> PC, STK -> T 


T 


4C 


0F 


E0 0F 


E0 03 




1 Q 


OR 


DZ 


- 


- 


- - S JMP 


- 


8 ALU 


IR4 


JMAP 


Q 










.MAP 37 


























40 


2E 


7E 8C 


60 FF 


ANDJP 


1 - 


OR 


ZA 


T 


- 


_ 


- 


8 


. 


- 


T 


T 


4E 


04 


61 07 


20 0F 




#AND1 


Z 






- JMP 










IF T = 




4F 


63 


C0 0C 


60 02 




1 B 


+ 


DZ 1 


_ 


8 


_ _ _ 


_ 





ALU 


PC 


PC + 1 -> Ra 





50 


4F 


El EC 


40 20 




1 B» 


OR 


DZ 





T 





s 





PC 


ALU 


R0 -> PC, STK -> T 


T 


51 


0F 


E0 0F 


E0 03 




1 


OR 


DZ 8 


- 


- 


- - S JMP 


- 





ALU 


IR4 


JMAP 
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- ALU IR IR+L -> R0 8 L 

- MAR ALU R0 -> MAR 

S ALU MD T -> STK, MD -> T T 

- S JMP - ALU IR4 JMAP Q 

- ALU IR IR+L -> R0 L 

- MAR ALU R0 -> MAR, R0+1 ->R8 

T S ALU MO T -> STK, MD -> T T 

- MAR ALU R0 -> MAR 

S ALU MD T -> STK, MD -> T T 

- S JMP - ALU IR4 JMAP Q 

- ALU IR IR -> R0 

- 1 40 40 + R0 -> R8 

- MAR ALU R0 -> MAR 8 

- ALU IR IR -> R0 8 

- 8 ALU MD MD + R0 -> R0 

- MAR ALU R0 -> MAR 

S ALU MD T -> STK, MD -> T T 

- - - S JMP - ALU IR4 JMAP Q 

- ALU IR IR -> R0 

- 1 40 40 + R0 -> R8 

- MAR ALU R0 -> MAR 8 

- 6 ALU IR IR -> RB 

- ALU MD MD + R0 -> R0 8 

- - - - -- MAR ALU R8 -> MAR 8 

- S ALU MD T -> STK, MD -> T T 

- MAR ALU R0 + 1 -> MAR 

- S ALU MD T -> STK, MD -> T T 

- - S JMP - ALU IR4 JMAP Q 

, 53, 54, 55, 56, 57 
- MAR ALU L+Q -> MAR L Q 

- S ALU MD T -> STK, MD -> T T 

- - S JMP - ALU IR4 JMAP Q 















.MAP 


40 












52 


62 


FC 


BC 


68 


84 


LLW 




1 B 


+ 


DA 


L 





53 


2E 


60 


0C 


68 


38 






1 - 


OR 


ZA 8 


8 


- 


54 


4F 


FF 


EC 


48 


81 






1 B« 


OR 


DZ 8 


T 


T 


55 


0F 


E0 


0F 


E8 


83 


.MAP 


41 


1 


OR 


DZ 8 






5B 


62 


FC 


8C 


68 


04 


LLD 




1 B 


+ 


DA 8 


L 


B 


57 


42 


48 


8C 


60 


30 






1 B« 


+ 


ZA 1 





B 


58 


4F 


FF 


EC 


48 


01 






1 B. 


OR 


DZ 8 


T 


T 


59 


2E 


68 


8C 


68 


30 






1 - 


OR 


ZA 8 





- 


5A 


4F 


FF 


EC 


40 


01 






1 B» 


OR 


DZ 8 


T 


T 


5B 


0F 


E0 


0F 


E8 


03 


.MAP 


42 


1 


OR 


DZ 8 






5C 


6F 


E0 


0C 


60 


04 


LEW 




1 B 


OR 


DZ 


- 





5D 


62 


E0 


0C 


70 


20 






1 B 


+ 


DA 8 





a 


5E 


2E 


60 


0C 


60 


38 






1 - 


OR 


ZA 8 





- 


5F 


6F 


E0 


0C 


60 


84 






1 B 


OR 


DZ 


- 





60 


62 


E0 


0C 


60 


01 






1 B 


+ 


DA 


8 





61 


2E 


60 


0C 


60 


30 






1 - 


OR 


ZA 


8 


- 


62 


4F 


FF 


EC 


40 


81 






1 B« 


OR 


DZ 


T 


T 


63 


0F 


E0 


0F 


E0 


83 






1 


OR 


DZ 


- 


- 














.MAP 43 












64 


6F 


E0 


BC 


60 


84 


LED 




1 B 


OR 


DZ 


- 





65 


62 


E0 


0C 


70 


20 






1 B 


+ 


DA 








66 


2E 


60 


0C 


60 


30 






1 - 


OR 


ZA 


8 


- 


67 


6F 


E0 


0C 


60 


04 






1 B 


OR 


DZ 


- 





68 


62 


E0 


0C 


60 


01 






1 B 


+ 


DA 


8 





69 


2E 


60 


BC 


68 


30 






1 - 


OR 


ZA 


8 


- 


6A 


4F 


FF 


EC 


48 


01 






1 B« 


OR 


DZ 


T 


T 


6B 


22 


48 


0C 


68 


30 






1 - 


+ 


ZA 1 


8 


- 


6C 


4F 


FF 


EC 


48 


01 






1 B. 


OR 


DZ 


T 


T 


6D 


8F 


E8 


0F 


E8 


83 


.MAP 


44, 


1 Q 
45, 46 


OR 

, 47 


DZ 8 

, 50, 


51, 


5 


6E 


20 


7C 


0C 


68 


38 


LLW4 




1 - 


+ 


AQ 8 


L 


- 


6F 


4F 


FF 


EC 


48 


81 






1 B« 


OR 


DZ 8 


T 


T 


70 


8F 


E8 


0F 


E8 


83 






1 


OR 


DZ 8 


- 


- 
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71 
72 
73 
74 



62 FC 0C 60 04 
4F FF EC 40 10 
2E 69 8C 60 30 
0F E0 0F E0 03 



■MAP 60 
SLW 



1 B 
1 B« 
1 - 
1 



OR 
OR 
OR 



DA 8 
DZ 
ZA 
DZ 



ALU IR 



S 



S JMP 



ALU 



MD 

MAR ALU 
ALU IR4 



IR^L -> R0 
T -> MD, STK 
RB -> MAR 

JMAP 



-> T 



L 
T 



.MAP 61 



75 62 FC 0C 60 04 SLD 



76 
77 
78 
79 
7A 



2F E0 0C 40 10 
2E 60 0C 60 30 
4F FF EC 40 18 
22 48 0C 60 30 
0F E8 0F E0 83 



1 B + 

1 - OR 

1 - OR 

1 B» OR 

1 - * 

1 Q OR 



DA L 8 
DZ 8 - - 
ZA 8 
DZ 
ZA 1 
DZ 8 



8 - 
T T 
8 - 



ALU IR IR+L -> R8 



- - S MD ALU 

- - - MAR ALU 

- - S MD ALU 

- - - MAR ALU 
S JMP - ALU IR4 



STK -> MD 
R0 -> MAR 
T -> MD, STK 
R0+1 -> MAR 
JMAP 



■> T 



L 



7B 6F E0 0C 60 04 

7C 62 E0 0C 70 20 

7D 2E 60 00 60 30 

7E 6F E0 0C 60 04 

7F 62 E0 0C 60 01 

80 4F FF EC 40 10 

81 2E 68 0C 60 30 

82 0F E0 0F E0 03 



■MAP 62 
SEW 



B 
B 

B 
B 
B« 



OR 

+ 

OR 
OR 

+ 

OR 
OR 



DZ 
DA 
ZA 8 
DZ 8 
DA 
DZ 
ZA 8 



T T - - 
8 - - - 



- ALU IR 

- 1 48 

- 8 MAR ALU 

- 8 ALU IR 

- ALU MD 
S MD ALU 

- 8 MAR ALU 



IR -> R0 

40 + R0 -> R0 

R0 -> MAR 

IR -> R0 

MD + R0 -> R0 

T -> MD, STK -> T 

R0 -> MAR 



1 Q OR DZ 



- S JMP - 8 ALU IR4 JMAP 



83 


6F 


E0 0C 


68 04 


84 


62 


E0 0C 


78 20 


85 


2E 


60 0C 


60 30 


86 


6F 


E0 ec 


60 04 


87 


62 


E0 0C 


60 01 


88 


4F 


FF EC 


40 10 


89 


22 


40 0C 


60 30 


8A 


4F 


FF EC 


48 10 


8B 


2E 


60 0C 


60 30 


8C 


0F 


E0 0F 


E0 03 


8D 


4F 


FF EC 


40 18 


8E 


20 


7C 0C 


68 30 


8F 


0F 


E0 0F 


E0 03 



.MAP 63 
SED 



B OR 



1 
1 B 
1 - 
1 B 
1 B 



B« 



OR 
OR 



B* OR 



OR 
OR 



DZ 
DA 
ZA 
DZ 8 
DA 8 
DZ 8 
ZA 1 
DZ 8 
ZA 8 



1 Q OR DZ 8 - 



8 - 



JMP 



•MAP 64,65,66,67,78,71,72,73,74,75,76,77 

SLW4 1 B. OR DZ 8 T T S 

1- + AQ8L-- - 

10 OR DZ 8 - - - - S JMP - 
$ 



ALU IR 


IR -> R0 


8 


1 40 


40 * m -> R0 





MAR ALU 


R0 -> MAR 


8 


ALU IR 


IR -> R0 


8 


ALU MD 


MD + R0 -> R0 


8 


MD ALU 


T -> MD, STK -> T 


T 


MAR ALU 


R0 + 1 -> MAR 


8 


MD ALU 


T -> MD, STK -> T 


T 


MAR ALU 


R0 -> MAR 


8 


8 ALU IR4 


JMAP 


Q 


MD ALU 


T -> MD, STK -> T 


T 


8 MAR ALU 


L+0 -> MAR 


L 


8 ALU IR4 


JMAP 






^■rm 



Informatik ETH Zuerich 



4 3 2 1 



90 62 FA 0C 68 04 

91 2E 68 0C 60 30 

92 4F FF EC 40 01 

93 8F E8 0F E0 83 



94 
95 
96 
97 
98 
99 



LABEL K DST FCT RS C 


A 


B 


.MAP 100 

LGW 1 B + DA 
1 - OR ZA 
1 B» OR DZ 


G 


T 




T 



52 FA 0C 63 04 
2E 60 0C 60 30 
4F FF EC 40 01 
22 40 8C 60 30 
4F FF EC 48 01 
0F E0 0F E8 03 



■MAP 101 
LGD 



IB H- DA G 

1 - OR ZA 8 

1 B« OR DZ T 

1 - + ZA 1 

IB* OR DZ T 

10 OR DZ - 



Micro-Code-Assefflbler 'MIA' 
B SHFT SP PC S E BD BS COMMENT 



- ALU IR IR+G -> R0 

- MAR ALU R0 -> MAR 

S B ALU MD T -> STK, MD -> T 

- S JMP - ALU IR4 JMAP 



- - - ALU IR IR+G -> R9 

- - - MAR ALU R0 -> MAR 

- - S ALU MD T -> STK, MD -> T 

- - - MAR ALU R0 + 1 -> MAR 

- - S ALU MD T -> STK, MD -> T 
S JMP - ALU IR4 JMAP 



A7 4F FF EC 48 10 
A8 20 7A 8C 68 30 
A9 0F E0 0F E0 03 



.MAP 102,183,104,105,186,107,110,111,112,113,114,115,116,117 

~ MAR ALU G+Q -> MAR 

S ALU MD T -> STK, MD -> T 

- S JMP - ALU IR4 JMAP 



- - - ALU IR IR+G -> R0 

- - S MD ALU T -> MD, STK -> T 

- - - MAR ALU R0 -> MAR 
S JMP - ALU IR4 JMAP 



- ALU IR IR+G -> R8 

S MD ALU T -> MD, STK -> T 

- MAR ALU RB + 1 -> MAR 

S MD ALU T -> MD, STK -> T 

- MAR ALU R0 -> MAR 

- S JMP - ALU IR4 JMAP 



. MAP 122 , 123 , 124 , 125 , 126 , 127 , 130 , 131 , 132 , 133 , 134 , 135 , 136 , 137 

SGW2 1 B» OR DZ 8 T T S MD ALU T -> MD. STK -> T 

1 - + AQ G - - MAR ALU G+Q -> MAR 

1 Q OR DZ 8 - - - - S JMP - ALU IR4 JMAP 



9A 


20 


7A 


8C 


68 


30 


LGW2 




1 - 


+ 


AQ 8 


G 


- 


9B 


4F 


FF 


EC 


40 


01 






1 B- 


OR 


DZ 


T 


T 


gc 


0F 


E8 


8F 


E0 


03 


.MAP 


120 


1 


OR 


DZ 






9D 


62 


FA 


0C 


68 


04 


SGW 




1 B 


+ 


DA 


G 





OE 


4F 


FF 


EC 


40 


10 






1 B. 


OR 


DZ 


T 


T 


9F 


2E 


68 


0C 


68 


30 






1 - 


OR 


ZA 





- 


A0 


0F 


E8 


0F 


E0 


03 


■ MAP 


121 


1 Q 


OR 


DZ 






Al 


62 


FA 


0C 


60 


84 


SGD 




1 B 


+ 


DA 


G 





A2 


4F 


FF 


EC 


48 


10 






1 B* 


OR 


DZ 


T 


T 


A3 


22 


40 


0C 


60 


30 






1 - 


+ 


ZA 1 





- 


A4 


4F 


FF 


EC 


40 


10 






1 B» 


OR 


DZ 


T 


T 


A5 


2E 


68 


8C 


68 


30 






1 - 


OR 


ZA 





- 


A6 


0F 


E8 


8F 


E8 


03 






1 


OR 


DZ 


- 


- 
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USED REGS 



G 



T 



T 





G Q 

T 





G 
T 
8 
Q 



8 G 
T 



T 

G Q 




4 3 2 1 



Informatik ETH Zuerich 
LABEL K DST FCT RS C 



Micro-Code-Assembler 'MIA' 



A B SHFT SP PC S E BD BS COMMENT 



AA 


6F E0 0C 60 01 


TRAPS 


IB OR 


DZ - 





AB 


3E 28 07 28 0F 


•MAP 140 


TRAP(5) 


T 




AC 


42 5F EC 60 3B 


LSWB 


1 B« + 


ZA 1 T 


T 


AD 


0A Al 07 20 0F 




TRAPS 


Z 




AE 


6F El EC 60 01 




1 B OR 


DZ - 


T 


AF 


0F E0 0F E0 03 




1 Q OR 


DZ - 


- 



- ALU MD 



JMP 



JMP 



MAR ALU 



ALU MD 



MD -> R8 ! DUMMY" 
TRAP(5) 



T -> MAR, T+1 -> T 
TRAP IF NIL 
MD -> T 



B0 20 7E 0C 60 30 

Bl 0A A2 07 20 0F 

B2 6F El EC 60 01 

B3 BF E0 0F E0 03 



S JMP - ALU IR4 JMAP 



■MAP 141, 142, 143, 144, 14S, 146, 147, 150, 151, 152, 153, 154, 155, 156, 157 
LSWl 1 - * AQ T - - MAR ALU T+Q -> MAR 

TRAPS C - JMP TRAP IF GVERFLOW 
IB OR DZ 8 - T - 8 ALU MD MD -> T 

1 Q OR DZ - - - - S JMP - ALU IR4 JMAP 
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USED REGS 




T 















.MAP 


160 
























B4 


63 


CB 


BC 


40 


FF 


SSW0 




1 B + 


DZ 


1 


- 


- 


— - 


S 


POP 


- 


STK + 1 -> R0 





B5 


3E 


21 


07 


20 


0F 






TRAP(5) 




Z 






- JMP 








TRAP IF NIL 




B5 


4F 


FF 


EC 


40 


10 






1 B« OR 


DZ 





T 


T - 


- - - 


S 


MD 


ALU 


T -> MD, STK -> T 


T 


B7 


26 


60 0C 


60 


30 






1 - -+ 


ZA 





8 


- - 


- - - 


- 


MAR 


ALU 


R0 - 1 -> MAR 





B8 


BF 


E0 


0F 


E0 


03 






1 Q OR 


DZ 





- 


- - 


- S JMP 


- 


ALU 


IR4 


JMAP 

















• MAP 


151, 


162,163,164,165, 


166 


,167,170,171,172,173,174,175,176,177 




B9 


53 


60 


0C 


40 FF 


SSWl 




1 B * 


DO 8 


- 


- 


- — 


S 


POP 


- 


STK + Q -> R0 





BA 


3E 


22 


07 


20 


0F 






TRAP(5) 




C 






- JMP 








TRAP IF OVERFLOW 




BB 


4F 


FF 


EC 


40 


10 






1 B» OR 


DZ 





T 


T - 


- - - 


S 


MD 


ALU 


T -> MD, STK -> T 


T 


BC 


2E 


60 


0C 


60 


30 






1 - OR 


ZA 





8 


- - 





- 


MAR 


ALU 


R0 -> MAR 





BD 


0F 


E0 0F 


E0 


03 






1 OR 


DZ 8 


- 


- - 


- S JMP 


- 


ALU 


IR4 


JMAP 

















.MAP 


208 
























BE 


62 


FE 


0C 


60 


04 


LSW 




1 B + 


DA 8 


T 


- 


-, — 


- 


ALU 


IR 


IR*T -> R0 





BF 


3E 


22 


07 


20 


0F 






TRAP(5) 




c 






- JMP 








TRAP IF OVERFLOW 




C0 


2E 


60 


0C 


60 


30 






1 - OR 


ZA 8 


8 


- - 


... 


. 


MAR 


ALU 


R0 -> MAR 





CI 


6F 


El 


EC 


60 


01 






1 B OR 


DZ 8 


- 


T - 


— - 


- 8 


ALU 


MD 


MD -> T 


T 


C2 


BF 


E0 


0F 


E0 


03 


.MAP 


201 


1 Q OR 


DZ 


8 






- S JMP 


- 8 


ALU 


IR4 


JMAP 


Q 


C3 


62 


FE 


0C 


60 


04 


LSD 




1 B + 


DA 





T 


- 


— - 


- 


ALU 


IR 


IR+T -> R0 





C4 


3E 


22 


07 


20 


0F 






TRAP(5) 




c 






- JMP 








TRAP IF OVERFLOW 




C5 


42 


40 0C 


60 


30 






1 B« + 


ZA 


1 





- 


- - - 


- 


MAR 


ALU 


R0 -> MAR, RB+1 ->R0 





C6 


0A 


A2 


07 


20 


0F 






TRAPS 




c 






- JMP 








TRAP IF OVERFLOW 




C7 


4F 


FF 


EC 


60 


01 


'.; 




1 B« OR 


DZ 





T 


T - 





- 


ALU 


MD 


MD -> T 


T 


C8 


2E 


60 


0C 


60 


30 






1 - OR 


ZA 








. . 





- 


MAR 


ALU 


R0 -> MAR 


8 


C9 


4F 


FF 


EC 


40 01 






1 B« OR 


DZ 


8 


T 


T - 


- - - 


S 


ALU 


MD 


T -> STK, MD -> T 


T 


CA 


0F 


E0 


0F 


E0 


03 


.MAP 


202 


1 Q OR 


DZ 









- S JMP 


- 8 


ALU 


IR4 


JMAP 


Q 


CB 


42 


5E 


0C 


60 


30 


LSD0 




1 B« + 


ZA 


1 


T 


8 - 





- 


MAR 


ALU 


T -> MAR, T+1 -> R0 





CC 


0A 


A2 


07 


20 


0F 






TRAPS 




c 






- JMP 








TRAP IF OVERFLOW 




CD 


6F 


El 


EC 


60 


01 






1 B OR 


DZ 





- 


T - 


- - - 


- 


ALU 


MD 


MD -> T 


T 


CE 


2E 


60 


0C 


60 


30 






1 - OR 


ZA 


8 





- - 





- B 


MAR 


ALU 


R0 -> MAR 





CF 


4F 


FF 


EC 


40 


01 






1 B. OR 


DZ 8 


T 


T - 


- - - 


S 


ALU 


MD 


T -> STK, MD -> T 


T 


D0 


0F 


E0 


0F 


E0 


03 






1 Q OR 


DZ 8 


- 


- - 


- S JMP 


- 


ALU 


IR4 


JMAP 


Q 



4 3 2 10 



Informatik ETH Zuerich 
LABEL K DST FCT RS C 



A B 



Micro-Code-Assembler 'MIA' 
SHFT SP PC S E BD BS COMMENT 
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USED REGS 



Dl 
D2 
D3 
D4 
D5 
D6 



DB 
DC 
DD 
DE 
DP 



E0 
El 
E2 
E3 
E4 
E5 
E6 
E7 
E8 



ED 
EE 
EF 
F8 
Fl 
F2 
F3 
F4 
F5 



83 E0 0C 40 FF 
C3 E0 0C 70 00 
02 60 0C 60 FF 
60 7E 2C 60 FF 
62 00 0C 60 D0 
2E 62 0C 60 38 



.MAP 203 
LXFW 



D7 26 00 00 70 04 

D8 0A Al 07 20 0F 

DO 6F El EC 60 01 

DA 0F E0 0F E0 03 



6F E0 00 70 02 
20 FA 00 60 30 
4F FE 00 40 84 
62 El EO 60 01 
BF E0 0F E0 03 



82 7F 
22 FE 
8A A2 
6F E8 
21 60 
0E 70 
4F E2 
72 E3 
0F E0 



EO 50 FF 
00 40 30 
07 20 BF 
20 60 01 
0C 60 FF 
47 20 0F 
24 68 08 
EO 70 FF 
0F E0 03 



Eg 22 FE 00 40 30 

EA 0A A2 07 20 0F 

EB 6F El EC 60 01 

EC 0F E0 0F E0 03 



68 FF 
3E 22 
62 FE 
0A A2 
6F El 
22 40 
0A A2 
4F FF 
BF E8 



EC 68 FF 
07 20 0F 
00 48 30 
07 20 0F 
EC 60 01 
0C 60 30 
07 20 8F 
EC 48 81 
8F E8 83 



.MAP 204 
LSTA 



.MAP 205 
LXB 



#LXB1 



.MAP 206 
LXW 



.MAP 207 
LXD 



Q + DZ 

BQL + DZ 8 

BQL + ZA 

B + AO 

B + ZA C 

- OR ZA 



TRAPS 



DA 1 
Z 



OR DZ 8 
OR DZ 



B OR DZ 8 

- + AB 

B» OR DZ 

B + DA 

Q OR DZ 



BQR + ZA 

- + DA 
TRAPS C 
B OR DZ 

- + ZO 8 
#LXB1 F 
B» OR DZ 8 
B & DA 
Q OR DZ 



- + DA 

TRAPS C 

B OR DZ 

OR DZ 



B + AB 

TRAP(5) 

B + DA 8 

TRAPS 

B OR DZ 8 

- + ZA 1 

TRAPS C 

B« OR DZ 8 

Q OR DZ 8 



- 

8 8 

T 1 

8 

1 - 

- 



- T 



- 8 

G 8 

T 

T 



T T 
T - 



1 1 
1 T 



T T 

T 

- T 

8 - 

T T 



S 8 POP - STK -> Q 

- 1 [0,0] * 2 -> [R0,O] 

- - - [R0,Q] * 2 -> [R0,Q] 

- a - - T + Q -> Rl 

- BNK ALU R3 + -> R0 -> BNK 

- 8 MAR ALU Rl -> MAR 



JMP 



14 R0 - 4 

TRAP IF BNK = 4 



- - " ALU MD MD -> T 
S JMP - ALU IR4 JMAP 



- 1 2 2 -> R0 

- MAR ALU G * R0 -> MAR 

- S 8 ALU IR T -> STK, IR -> R0 

- ALU MD MD * R0 -> T 

- - S JMP - ALU IR4 JMAP 



- 8 - - [T,Q]/2 -> [T,Q] 
S MAR ALU STK + T -> MAR 



- JMP TRAP IF OVERFLOy 
1 - ALU MD MD -> Rl 

-0- •- 

- JMP IF ODD(INDEX) 
R 18 - - - 8 ALU ALU RltlS -> Rl 

- 1 377 377 & Rl -> T 

- - S JMP - ALU IR4 JMAP 



T - 



- - S MAR ALU STK + T -> MAR 

- JMP TRAP IF OVERFLOW 

- - - 8 ALU MD MD -> T 
S JMP - ALU IR4 JMAP 



-- -0- - T + T->T 

- JMP TRAP IF OVERFLOW 

- - S 8 MAR ALU STK + T -> MAR -> R0 

- JMP TRAP IF OVERFLOW 

- - - 8 ALU MD MD -> T 

- - - MAR ALU R0 + 1 -> MAR 

- JMP TRAP IF OVERFLOW 

- - S 8 ALU MD T -> STK, MD -> T 
S JMP - ALU IR4 JMAP 




Q 

Q 

1 T Q 
8 

1 





8 G 
T 

T 




T 
T 

1 


1 

1 T 
Q 



4 3 2 1 B 



Inforraatik ETH Zuerich 
LABEL K DST FCT RS C 



Micro-Code-Assembler 'MIA' 



A B SHFT SP PC S E SD BS COMMENT 
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USED REGS 









,MAP 210 












F6 


6F 


EB 2C 40 FF 


DADD 


1 B 


OR 


DZ 8 


- 


1 


F7 


62 


FF EC 4B FF 




1 B 


+ 


DA 


T 


T 


F8 


62 


82 2C 40 FF 




1 B 


+ 


DA C 


1 


1 


F9 


2E 


62 0C 4B 0F 




1 - 


OR 


ZA 


1 


- 


FA 


0F 


E0 0F EB B3 


.MAP 211 


1 Q 


OR 


DZ 






FB 


6F 


E0 2C 48 FF 


DSUB 


1 B 


OR 


DZ 


- 


1 


FC 


6A 


DF EC 4B FF 




1 B 


- 


DA 1 


T 


T 


FD 


6A 


82 2C 48 FF 




1 B 


- 


DA C 


1 


1 


FE 


2E 


62 0C 40 0F 




1 - 


OR 


ZA 


1 


- 


FF 


0F 


E0 0F E0 03 


, MAP 212 
. MAP 213 


1 

DMUL 

DDIV 


OR 


DZ 9 
















TO BE FOUND 








. MAP 216 DSHL 
















. MAP 217 


DSHR 
















. MAP 214 


,215 


NOT USED 





- - S POP - 

- - S POP - 

- - S POP - 

- - S PSH - 

S JMP - ALU IR4 



S 8 POP 
S 8 POP 
S POP 

S PSH 



STK -> Rl !YH" 
STK+T -> T !ZL" 
STK+Rl -> Rl 
Rl -> STK !ZH" 
JMAP 



STK -> Rl !YH" 
STK-T -> T !ZL" 
STK-Rl -> Rl 
Rl -> STK !ZH" 



- S JMP - ALU IR4 JMAP 















Infor 


tnati 


k ETH 


Zuer 


ich 






Micro-Code-A 


3Sf 


smbler 'M 


lA' 




Pags 12 




4 


3 


2 


1 


8 


LABEL 
.MAP 


220 


K DST 


FCT 


RS C 


A 


B 


SHFT SP PC S 


E 


BD 


BS 


COMMENT 




USED REGS 


100 


6F 


E0 0C 


40 


FF 


SSW 




1 B 


OR 


DZ 


- 





s 


8 


POP 


- 


STK -> R0 




8 


181 


62 


E0 


0C 


60 


04 






1 B 


+ 


DA 








- - - - 





ALU 


IR 


R0 + IR -> R0 







102 


3E 


22 


07 


20 


0F 






TRAP(5) 


C 






- JMP 








TRAP IF OVERFLOW 




103 


4F 


FF 


EC 


40 


10 






1 B« 


OR 


DZ 


T 


T 


S 





MD 


ALU 


T -> MD, STK - 


-> T 


T 


184 


2E 


60 


0C 


60 


30 






1 - 


OR 


ZA 





- 


- — - 





MAR 


ALU 


R0 -> MAR 




8 


185 


0F 


E0 


0F 


E0 


03 


.MAP 


221 


1 Q 


OR 


DZ 






- - S JMP - 





ALU 


IR4 


JMAP 




Q 


106 


6F 


E8 


2C 


40 


FF 


SSD 




1 B 


OR 


DZ 


- 


1 


" S 





POP 


- 


STK -> Rl 




1 


107 


6F 


E0 


0C 40 


FF 






1 B 


OR 


DZ 


- 





S POP 


- 


STK -> R0 




8 


108 


62 


E8 


8C 


60 


04 






1 B 


+ 


DA 








_ _ _ _ 





ALU 


IR 


IR^RB -> R0 




8 


109 


3E 


22 


87 


28 


8F 






TRAP(5) 


C 






- JMP 








TRAP IF OVERFLOW 




10A 


2E 


62 


0C 


60 


10 






1 - 


OR 


ZA 


1 


- 


. 





MD 


ALU 


Rl -> MD 




1 


18B 


42 


40 


0C 


68 


30 






1 B* 


+ 


ZA 1 


e 


8 


_ 





MAR 


ALU 


R0 -> MAR, R0 


+ 1 -> 


R0 8 


10C 


3E 


22 


07 


20 


0F 






TRAP(5) 


C 






- JMP 








TRAP IF OVERFLOW 




10D 


4F 


FF 


EC 


40 


10 






1 B« 


OR 


DZ 8 


T 


T 


s 





MD 


ALU 


T -> MD, STK 


-> T 


T 


10E 


2E 60 


0C 


60 


30 






1 - 


OR 


ZA 


8 


- 


. — _ 





MAR 


ALU 


R0 -> MAR 




8 


10F 


0F 


E8 


0F 


E8 


03 


.MAP 


222 


1 Q 


OR 


DZ 






- - S JMP - 





ALU 


IR4 


JMAP 







110 


6F 


E0 


2C 


48 


FF 


SSD0 




1 B 


OR 


DZ 


- 


1 


s 





POP 


- 


STK -> Rl 




1 


111 


63 


C0 


0C 


48 


FF 






1 B 


■♦■ 


DZ 1 


- 





s 





POP 


- 


STK + 1 -> R0 







112 


3E 


21 


07 20 0F 






8 TRAP(5) 


Z 






- JMP 








TRAP IF NIL 






113 


2E 


62 


0C 


60 


10 






1 - 


OR 


ZA 


1 


- 


- — - 





MD 


ALU 


Rl -> MD 




1 


114 


26 


60 


0C 


60 30 






1 - 


- + 


ZA 





- 








MAR 


ALU 


R0 - 1 -> MAR 







115 


4F 


FF 


EC 


40 


18 






1 B« 


OR 


DZ 8 


T 


T 


S 





MD 


ALU 


T -> MD, STK 


-> T 


T 


116 


2E 


60 


0C 


68 


30 






1 - 


OR 


ZA 


8 


- 


_ — . 





MAR 


ALU 


R0 -> MAR 




8 


117 


BF 


E0 


0F 


E0 


03 


.MAP 


223 


1 


OR 


DZ 8 


- 


- 


- - S JMP - 





ALU 


IR4 


JMAP 







118 


6F 


E0 


6C 


48 


FF 


SXFW 




1 B 


OR 


DZ 


- 


3 


s 





POP 


_ 


STK -> R3 




3 


119 


03 


E0 


0C 


48 


FF 






1 


+ 


DZ 8 


- 


- 


s 





POP 


- 


STK -> Q 




Q 


llA 


C3 


E0 


4C 


78 


80 






1 BQL 


+ 


DZ 8 


- 


2 





1 







[0,Q] . 2 -> 


:r2,q] 


2 Q 


IIB 


C2 


64 


4C 


68 


FF 






1 BQL 


+ 


ZA 


2 


2 








- 


- 


[R2,01 • 2 -> 


[R2,Q] 


2 


lie 


60 


66 


6C 


68 


FF 






1 B 


+ 


AQ 8 


3 


3 








- 


- 


R3 + Q -> R3 




3 Q 


IID 


62 


04 


4C 


68 


FF 






1 B 


+ 


ZA C 


2 


2 


- - - - 





- 


- 


R2 + C -> R2 




2 


HE 


26 


C4 


0C 


70 


84 






1 - 


- + 


DA 1 


2 


- 


_ _ _ _ 


1 


4 ' 




R2 - 4 




2 


IIF 


3E 


21 


07 


20 


0F 






TRAP(5) 


Z 






- JMP 








TRAP IF OVERFLOW 




120 


4F 


FF 


EC 


40 


10 






1 B. 


OR 


DZ 


T 


T 


s 


8 


MD 


ALU 


T -> MD, STK 


-> T 


T 


121 


2E 


64 


0C 


50 


D0 


,. 




1 - 


OR 


ZA 


2 


- 








BNK 


ALU 


R2 -> BNK 




2 


122 


2E 


66 


0C 


60 


30 






1 - 


OR 


ZA 


3 


- 


- - — 





MAR 


ALU 


R3 -> MAR 




3 


123 


0F 


E0 


0F 


E0 


03 


.MAP 


224 


1 


OR 


DZ 






- - S JMP ' 





ALU 


IR4 


JMAP 







124 


6E 


7E 


0C 


60 


38 


TS 




1 B 


OR 


ZA 


T 





_ _ — 





MAR 


ALU 


T -> R0 -> MAR 


8 T 


125 


6F 


E0 


2C 


70 01 






1 B 


OR 


DZ 8 


- 


1 


_ - — 


1 


1 




1 -> Rl 




1 


126 


6F 


El 


EC 


60 


01 






1 B 


OR 


DZ 


- 


T 


- - — 





ALU 


MD 


MD -> T 




T 


127 


2E 


62 


0C 


60 


10 






1 - 


OR 


ZA 


1 


- 


_ . _ _ 





MO 


ALU 


Rl -> MD 




1 


128 


2E 


60 


0C 


60 


30 






1 - 


OR 


ZA 


8 


- 


_ _ — 


8 MAR 


ALU 


R0 -> MAR 







129 


0F 


E0 0F 


E0 


03 






1 Q 


OR 


DZ 


- 


- 


- - S JMP - 


8 


ALU 


IR4 


JMAP 




Q 
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.MAP 225 
























12A 


83 


E0 


0C 


40 


FF 


SXB 


1 BQR + 


DZ 


- 





- 


S 





POP 


- 


[STK,Q]/2 -> [R0,Q] 


Q 


12B 


62 


E0 


0C 


40 


30 




1 B ♦ 


DA 








- 


s 





MAR 


ALU 


STK+R0 -> R0 -> MAR 





12C 


0A 


A2 


07 


20 


0F 




TRAPS 


C 








- JMP 








TRAP IF OVERFLOW 




12D 


6F 


E8 


2C 


60 


81 




1 B OR 


DZ 8 


- 


1 


- 


- — 





ALU 


MD 


MO -> Rl 


1 


12E 


6F 


E8 4C 


70 


FF 




1 B OR 


DZ 


- 


2 


- 


... 


1 


377 




377 -> R2 


2 


12F 


78 


E5 


EC 


68 


FF 




1 B S 


AB 


2 


T 


- 








- 


- 


R2 S T -> T 


2 T 


130 


21 


60 


0C 


60 


FF 




1 - + 


ZQ 


- 


- 


- 








- 


- 





Q 


131 


13 


40 


47 


20 


0F 




#SXB1 




F 






- JMP 








IF LOW-BYTE 




132 


4F 


E4 


44 


68 


00 




1 B» OR 


DZ 


2 


2 


R 


10 - - - 





ALU ALU 


R2tl0 -> R2 


2 


133 


4F 


FF 


E4 


68 


00 




1 B« OR 


DZ 


T 


T 


R 


10 - - - 





ALU ALU 


Ttl0 -> T 


T 


134 


74 


E4 


2C 


60 


FF 


#SXB1 


IB -S 


AB 8 


2 


1 


- 








- 


- 


-R2 & Rl -> Rl 


1 2 


135 


2C 


E3 


EC 


60 


10 




1 - OR 


AB 


1 


T 


- 


. — 


8 


MD 


ALU 


T OR Rl -> MD 


1 T 


136 


4F 


El 


EC 


40 


30 




1 B. OR 


DZ 





T 


- 


s 





MAR 


ALU 


R0 -> MAR, STK -> T 


T 


137 


0F 


E0 


0F 


E8 


03 




1 Q OR 


DZ 


- 


- 


- 


- S JMP - 


8 ALU 


IR4 


JMAP 


Q 














.MAP 226 
























138 


6F 


E0 


0C 


48 


FF 


SXW 


1 B OR 


DZ 


- 





- 


S 





POP 


- 


STK -> R0 





139 


62 


E0 


0C 


40 


FF 




1 B + 


DA 








- 


S 


POP 


- 


R0 + STK -> Ra 





13A 


3E 


22 


07 


20 


0F 




TRAP(5) 


C 








- JMP 








TRAP IF OVERFLOW 




13B 


4F FF 


EC 


40 


18 




1 B» OR 


DZ 


T 


T 


- 


s 





MD 


ALU 


T -> MD, STK -> T 


T 


13C 


2E 


60 


0C 


60 


38 




1 - OR 


ZA 





- 


- 


- — 





MAR 


ALU 


R0 -> MAR 





13D 


0F 


E0 


0F 


E0 


03 


.MAP 227 


1 Q OR 


DZ 








- S JMP - 


8 


ALU 


IR4 


JMAP 





13E 


6F 


E0 


2C 


40 


FF 


SXD 


1 B OR 


DZ 


- 


1 


- 


S POP 


- 


STK -> Rl 


1 


13F 


6F 


E0 


0C 


40 


FF 




1 B OR 


DZ 


- 





- 


s 


8 


POP 


- 


STK -> R8 





148 


68 


E0 0C 


60 FF 




1 B + 


AB 


8 





- 


... 


8 


- 


- 


R0 + RB -> R0 





141 


3E 


22 


07 


20 


8F 




8 TRAP(5) 


C 








- JMP 








TRAP IF OVERFLOW 




142 


62 


C0 


0C 


40 FF 




1 B + 


DA 1 








- 


S 





POP 


- 


R0+STK+1 -> R0 





143 


3E 


22 


07 


20 


0F 




8 TRAP(5) 


C 








- JMP 








TRAP IF OVERFLOW 




144 


2E 


62 


0C 


60 


10 




1 - OR 


ZA 


1 


- 


- 








MD 


ALU 


Rl -> MD 


1 


145 


26 


60 


0C 


60 


30 




1 - -+ 


ZA 





- 


- 


- — 





MAR 


ALU 


R0 - 1 -> MAR 





146 


4F 


FF 


EC 


40 


10 




1 B. OR 


DZ 


T 


T 


- 


S 


8 


MD 


ALU 


T -> MD, STK -> T 


T 


147 


2E 


60 


0C 


60 


38 




1 - OR 


ZA 





- 


- 


- - - 





MAR 


ALU 


R0 -> MAR 





148 


eF 


E0 


8F 


E0 


03 




1 Q OR 


DZ 


- 


- 


- 


- S JMP - 





ALU 


IR4 


JMAP 


Q 



■m 
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149 6F 08 87 20 8F 

14A 6F B8 07 20 0F 

14B 74 68 07 20 0F 

14C 77 98 07 20 0F 

14D 7A D8 07 20 0F 



MAP 231 



MAP 232 



MAP 233 



MAP 234 



FADD 



FSUB 



FMUL 



FDIV 



FCMP 



T 


- JMP 


T 


- JMP 


T 


- JMP 


T 


- JMP 


T 


- JMP 
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.MAP 


235 




























14E 


6F 


E0 


2C 


40 


FF 


FABS 




1 


B 


OR 


DZ 


- 


1 


- 


- _ - 


S 





POP - 


STK -> Rl 


1 


14F 


76 


E2 


24 


71 


01 






1 


B 


-8 


DA 


1 


1 


R 


1 - - 


- 


1 


1 


"(Itl) g Rl -> Rl 


1 


150 


2E 


62 


0C 


40 


0F 






1 


- 


OR 


ZA 8 


1 


- 


- 


_ — 


S 





PSH - 


Rl -> STK 


1 


151 


0F 


E0 


0F 


E0 


03 


.M,AP 


236 


1 


Q 


OR 


DZ 








- S JMP 







ALU IR4 


JMAP 


Q 


152 


6F 


E0 


2C 


40 


FF 


FNEG 




1 


B 


OR 


DZ 


- 


1 


- 


- - - 


s 





POP - 


STK -> Rl 


1 


153 


7A 


E2 


24 


71 


01 






1 


B 


XOR 


DA 


1 


1 


R 


1 - - 


- 


1 


1 


(Itl) XOR Rl -> Rl 


1 


154 


2E 


62 


0C 


40 


8F 






1 


- 


OR 


ZA 


1 


- 


~ 





s 





PSH ■- 


Rl -> STK 


1 


155 


BF 


E0 


0F 


E0 


03 


.MAP 


237 


1 


Q 


OR 


DZ 








- S JMP 







ALU IR4 


JMAP 


Q 


156 


7C 


78 


07 


20 


0F 









FFCT 


T 








- JMP 
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.MAP 


240 












157 


6F 


E0 AC 40 


FF 


READ 




1 B 


OR 


DZ 


- 


5 


158 


46 


48 03 20 


0F 






#GET 


T 






159 


2E 


6C 0C 60 


10 






1 - 


OR 


ZA 


6 


- 


15A 


4F 


FF EC 40 


30 






1 B« 


OR 


DZ 


T 


T 


15B 


0F 


E0 0F E0 


03 


• MAP 


241 


1 


OR 


DZ 






15C 


6E 


7E CC 60 


FF 


WRITE 




1 B 


OR 


ZA 8 


T 


6 


15D 


6F 


E0 AC 40 


FF 






1 B 


OR 


DZ 


- 


5 


15E 


6F 


El EC 40 


FF 






1 B 


OR 


DZ 


- 


T 


15F 


46 


A8 03 20 


0F 






#PUT 


T 






160 


0F 


E0 0F E0 


03 


■ MAP 


242 


1 Q 


OR 


DZ 






161 


47 C8 03 20 


0F 


DSKR 




#CLRAODR T 






162 


6F 


E0 2C 70 


80 






1 B 


OR 


DZ 


- 


1 


163 


6F 


E0 0C 70 


08 






1 B 


OR 


DZ 


- 





164 


2E 


60 0C 60 


60 






1 - 


OR 


ZA 





- 



17D 
17E 
17F 
180 
181 
182 



S POP - 

- JSR 

- MD ALU 

S MAR ALU 

- S JMP - ALU IR4 



- S 8 POP - 

- S POP - 
JSR 

JMP - ALU IR4 



- JSR 



- 1 200 

- 1 10 

- lOA ALU 



STK -> R5 

GET(R5,R6) 

R5 -> MD 

T -> MAR, STK -> T 

JMAP 



T -> R6 
STK -> R5 
STK -> T 

PUT(R5,R6) 
JMAP 



CLRADDR 

128 -> Rl 

8 -> R0 

R0 -> lO-ADDRESS 



165 2D 60 0C 60 FF #DR 



166 


2D 


60 


0C 60 


F7 




1 - OR 


ZQ 


- 


- 


167 


2D 


60 


0C 60 


17 




1 - OR 


ZQ 


- 


- 


168 


2D 


60 


0C 60 


F7 




1 - OR 


ZQ 8 


- 


- 


169 


2D 


60 


0C 60 


F7 




1 - OR 


ZQ 8 


- 


- 


16A 


42 


5F 


EC 60 


30 




1 B« * 


ZA 1 


T 


T 


16B 


66 


62 


2C 60 


FF 




IB -* 


ZA 8 


1 


1 


16C 


16 


59 


07 20 


0F 




#DR 


-Z 






16D 


6F 


El 


EC 40 


FF 




IB OR 


DZ 8 


- 


T 


16E 


0F 


E0 


0F E0 


03 


.MAP 243 


10 OR 


DZ 8 






16F 


47 


F8 


03 20 


0F 


DSKW 


#INITWRIT T 






170 


6F 


E0 


2C 70 


80 




1 B OR 


DZ 8 


- 


1 


171 


6F 


E0 


AC 70 


08 




IB OR 


DZ 8 


- 


5 


172 


2E 


6A 


0C 60 


60 




1 - OR 


ZA 8 


5 


- 



ORZQ0--- -0- - lO-DATA -> DUMMY 

tlOD VHEN HARDWARE READY 

- - - - - lOD lO-DATA -> DUMMY 

- MD lOD lO-DATA -> MD 

- - lOD lO-DATA -> DUMMY 

- - lOD lO-DATA -> DUMMY 

- MAR ALU T -> MAR, T*l -> T 

- - - Rl - 1 -> Rl 

- JMP IF > 



- - S POP - 


STK -> T 


S JMP - ALU IR4 


JMAP 


- JSR 


INITWRIT 


- - - 1 200 


128 -> Rl 


- - - 1 10 


10 -> R5 


- - - lOA ALU 


R5 -> lO-AODRESS 



173 


42 5F 


EC 60 30 


174 


2D 60 


0C 60 Fl 


175 


2D 60 


0C 60 71 


176 


2D 60 


0C 60 71 


177 


2D 60 


0C 60 71 


178 


2D 60 


0C 60 71 


179 


66 62 


2C 60 FF 


17A 


17 39 


07 20 0F 


17B 


6F El 


EC 40 FF 


i7C 


0F E0 


0F E0 03 



#DW 



1 B« + ZA 1 T T - MAR ALU T -> MAR, Tfl -> T 

1 - OR ZQ - - - - MD MD -> lO-DATA 

tlOD Wi-iEN HARDWARE READY 

1 - OR ZQ - - - lOD MD MD -> lO-DATA 

1 - OR ZQ - - - lOD MD MD -> lO-DATA 

1 - OR ZQ - - - lOD MD MD -> lO-DATA 

1 - OR ZQ - - - 8 lOD MD MD -> lO-DATA 

IB -+ ZA 1 1 - - - Rl - 1 -> Rl 

#DW -Z - JMP IF > 



1 B 
1 Q 



OR 
OR 



DZ 
DZ 



2E 74 0C 40 0F 
6E 7F 4C 60 FF 
49 08 03 20 0F 
6F El 4C 40 FF 
6F El EC 40 FF 
0F E0 0F E0 03 



.MAP 244 
SETRK 



- OR ZA 

B OR ZA 
#SETTRACK T 
B OR DZ 
B OR DZ 
Q OR DZ 



T - - 



12 - - - 



- - S POP - 


STK -> T 


S JMP - ALU IR4 


JMAP 


- - S PSH - 


P -> STK 


- - - - - 


T -> R12 


- JSR 


SETTRACK(T) 


- - S POP - 


STK -> P 


- - S POP - 


STK -> T 


S JMP - ALU IR4 


JMAP 



6 T 

5 
T 
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.MAP 245 












183 


6E 


7E 


4C 


60 


FF 


UCHK 


1 B 


OR 


ZA 


T 


2 


184 


6F 


E0 


20 


40 


FF 




1 B 


OR 


DZ 


- 


1 


185 


6F 


El 


EC 


40 


FF 




1 B 


OR 


DZ 


- 


T 


186 


28 


DE 


20 


60 


FF 




1 - 


- 


AB 1 


T 


1 


187 


3E 


0A 


07 


20 


0F 




TRAP(4) 


-C 






188 


28 


05 


EO 


68 


FF 




1 - 


- 


AB 1 


2 


T 


189 


3E 


0A 


07 


28 


0F 




TRAP(4) 


-C 






18A 


eF 


E0 


0F 


E0 


83 


,MAP 247 


10 


OR 


DZ 






18B 


6F 


E0 


00 60 


04 


SYS 


1 B 


OR 


DZ 


- 





18C 


4E 


Al 


07 


20 


0F 




BOOT 


Z 






18D 


65 


60 


00 


60 


FF 




1 B 


- + 


ZA 








18E 


19 


59 


07 


20 


0F 




>1 




-Z 






18F 


2E 


72 


00 


40 


0F 




1 - 


OR 


ZA 


M 


- 


190 


2E 


74 


00 


40 


0F 




1 - 


OR 


ZA 


P 


- 


191 


4B 


A8 


03 


20 


0F 




DUMP 


T 






192 


6F 


El 


40 


40 


FF 




1 B 


OR 


DZ 


- 


P 


193 


6F 


El 


20 


40 


FF 




1 B 


OR 


DZ 


- 


M 


194 


0F 


E0 


0F 


E0 


03 




1 Q 


OR 


DZ 8 


- 


- 


195 


66 60 0C 


60 FF 


>1 


1 B 


- + 


ZA 








196 


19 


A9 


07 


20 


0F 




>2 




-Z 






197 


2E 


7E 


00 


40 0F 




1 - 


OR 


ZA 


T 


- 


198 


6E 


75 


EC 


60 


FF 




1 B 


OR 


ZA 


P 


T 


199 


0F 


E0 


0F 


E0 


03 




1 Q 


OR 


DZ 8 


- 


- 


19A 


66 


60 


00 


60 


FF 


>2 


1 B 


_ + 


ZA 8 





8 


19B 


lA 


19 07 


20 0F 




>3 




-Z 






19C 


66 


DF 


60 


70 


18 




1 B 


- + 


DA 1 


T 


H 


19D 


6F 


E0 


00 


70 


05 




1 B 


OR 


DZ 


- 





19E 


4F 


FF 


EO 


40 


10 




1 B. 


OR 


DZ 


T 


T 


19F 


20 


El 


40 60 30 




1 - 


+ 


AB 


8 


P 


1A0 


0F 


E0 


0F 


E0 


03 




1 Q 


OR 


DZ 


- 


- 


lAl 


66 


60 


00 


60 


FF 


>3 


1 B 


- + 


ZA 


8 





1A2 


3F 


99 


07 20 


0F 




>4 




-Z 






1A3 


82 


F6 


00 


70 


18 




1 Q 


+ 


DA 


H 


- 


1A4 


4D 


7F 


EO 


40 


0F 




1 B. 


OR 


ZQ 


T 


T 


1A5 


0F 


E0 


0F 


E0 


03 


,.. 


1 


OR 


DZ 


- 


- 



S POP 
S POP 



JMP 



- - 



JMP 



T -> R2 mi" 

STK -> Rl !LOW" 

STK -> T !X" 

T - Rl 

TRAP IF X < LOW 

R2 - T 

TRAP IF HI < X 



S JMP - 8 ALU IR4 JMAP 



— 


- 





ALU IR 


IR -> R0 




- JMP 








IF IR=8 




— 


- 





. 


R0 - 1 -> 


R0 


- JMP 








IF IROl 




- - 


S 


PSH - 


M -> STK 




— 


s 





PSH - 


P ~> STK 




- JSR 








DUMP 




— 


s 





POP - 


STK -> R3 







S 





POP - 


STK -> R8 




S JMP 


- 





ALU IR4 


JMAP 




_ _ 


.- 





~ 


R0 - 1 -> 


R0 


- JMP 








IF IR02 




— 


s 





PSH - 


T -> STK 




. _ 


- 





_ 


P -> T 




S JMP 


- 





ALU IR4 


JMAP 




_ ™ 


„ 


8 


_ 


RB - 1 -> 


m 


- JMP 








IF IR03 




- - 


- 


1 


30 


T - 30 -> 


H 


- - 


- 


1 


5 


5 -> R0 




— 


s 





MD .ALU 


T -> MD, STK -> T 


_ . 


- 





MAR ALU 


R0 + P -> 


MAR 


S JMP 


- 





ALU IR4 


JMAP 




_ _ 


- 





_ 


R8 - 1 -> 


R0 


- JMP 








IF IR04 




— 


- 


1 


30 


H + 30 -> Q 


— 


s 


PSH - 


T -> STK, 


Q -> T 


S JNP 


- 





ALU IR4 


JMAP 
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USED REGS 

2 T 

1 

T 

1 T 

2 T 
Q 



M 

P 

P 
M 




T 

P T 




H T 

T 

P 
D 



H Q 
T Q 
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USED REGS 















.MAP 250 


























1A6 


6F 


E0 2C 


60 04 


ENTP 




1 B 


OR 


DZ 


- 


1 


_ — - 


- 


ALU 


IR 


IR -> Rl 




1 


1A7 


26 


C2 


0C 


70 


10 






1 - 


- + 


DA 1 


1 


- 


- — - 


- 1 


20 




Rl - 16 




1 


1A8 


lA 


El 


07 


20 0F 






ENTPl 


Z 






- JMP 








IF Rl = 16 






1A9 


2E 


62 


0C 


60 


40 






1 - 


OR 


ZA 


1 


- 





- SR 


ALU 


Rl -> SR 




1 


lAA 


6F 


E0 


3C 


70 


00 






1 B 


OR 


DZ 


- 


1 


MR 


- 1 


8 




MSK(0,SR) - 


•> Rl 


1 


lAB 


28 


C3 


2C 


60 


FF 






1 - 


_ 


AB 1 


1 


M 


_ _ - 


- 


_ 


_ 


Rl - M 




1 M 


lAC 


lA 


F2 


07 


20 


0F 






ENTP2 


C 






- JMP 








IF Rl >= M 






IAD 


3D C8 


07 


20 0F 






8 TRAP(2) 


T 






- JMP 








TRAP(2) 






lAE 


68 


E2 


2C 


60 


FF 


ENTPl 




1 B 


_ 


AB 8 


1 


1 


_ _ _ 


- 


_ 


_ 


-1 -> Rl 




1 


lAF 


6F 


E0 


0C 


70 


03 


ENTP2 




1 B 


OR 


DZ 8 


- 


8 





- 1 


3 




3 -> R0 




8 


1B0 


2E 


72 


0C 


60 


18 






1 - 


OR 


ZA 


M 


- 


_ 


- MD 


ALU 


M -> MD 




M 


IBl 


20 


El 


CC 


60 


38 






1 - 


+ 


AB 





L 


- - - - 


- 


MAR 


ALU 


R0 + L -> MAR 


L 


1B2 


2E 


60 


0C 


60 


30 






1 - 


OR 


ZA 8 





_ 


_ _ _ 


- 


MAR 


ALU 


R0 -> MAR 


DEV. STATUS" 





1B3 


6E 


63 


2C 


60 


FF 






1 B 


OR 


ZA 8 


1 


M 


_ 


- 


- 


- 


Rl -> M 




1 M 


1B4 


6E 


E2 


2C 


60 


01 






1 8 


OR 


DA 8 


1 


1 





- 


ALU 


MD 


MD OR Rl -> Rl 


1 


1B5 


2E 


62 


0C 


60 


88 






1 - 


OR 


ZA 


1 


- 


_ 


- 


INN 


ALU 


Rl -> INM 




1 


1B6 


0F 


E0 


BF 


E0 


03 


.MAP 


251 


1 


OR 


DZ 






- - S JMP 


- 


ALU 


IR4 


JMAP 




r% 


IB? 


6F 


E0 


0C 


70 


03 


EXP 




1 B 


OR 


DZ 8 


- 





_ 


- 1 


3 




3 -> R0 




8 


1B8 


20 


El 


CC 60 


30 






1 - 


+ 


AB 8 





L 


_ _ — 


- 


MAR 


ALU 


R0 + L -> MAR 


L 


1B9 


6F 


El 


2C 


60 


01 






1 B 


OR 


DZ 8 


- 


M 


_ 


- 


ALU 


MD 


MD -> M 




M 


IBA 


2E 


60 


0C 


60 


30 






1 - 


OR 


ZA 





- 





- 


MAR 


ALU 


R0 -> MAR 


DEV. STATUS" 





IBB 


6F 


E0 


0C 


68 


01 






1 B 


OR 


DZ 


- 





- - - - 


- 


ALU MD 


MD -> R0 







IBC 


2C 


El 


2C 60 


80 






1 - 


OR 


AB 


8 


M 


- - - - 


- 


INM 


ALU 


R0 OR M -> 


INM 


M 


IBD 


0F 


E0 


0F 


E0 


03 


.MAP 


252 


1 


OR 


DZ 






- - S JMP 


- 


ALU 


IR4 


JMAP 




Q 


IBE 


2A 


DE 


0C 


40 


FF 


ULSS 




1 - 


- 


DA 1 


T 


- 


- - - - 


S 


POP 


~ 


STK-T 




T 


IBF 


2A 


BA 


07 


20 


0F 






#PUSH1 


-C 






- JMP 








IF STK < T 






1C0 


71 


61 


EC 


60 


FF 






1 B 


« 


ZQ 


- 


T 





- 


- 


- 


-> T 




T 


ICl 


0F 


E0 


0F 


E0 


03 


.MAP 


253 


1 


OR 


DZ 






- - S JMP 


- 


ALU 


IR4 


JMAP 




Q 


1C2 


2A 


FE 


8C 


40 


FF 


ULEQ 




1 - 


- 


DA 


T 


- 





S 


POP 


- 


STK-T- 1 




T 


1C3 


29 


C2 


07 


20 


8F 






#PUSH0 


C 






- JMP 








IF STK > T 






1C4 


6F 


El 


EC 


70 


81 


■- 




1 B 


OR 


DZ 


- 


T 


- - - - 


- 1 


1 




1 -> T 




T 


1C5 


0F 


E0 


0F 


E0 


83 






1 


OR 


DZ 


- 


- 


- - S JMP 


- 


ALU 


IR4 


JMAP 




Q 














.MAP 254 


























1C6 


2A 


FE 


0C 


48 


FF 


UGTR 




1 - 


- 


DA 


T 


- 


_ _ _ . 


S 


POP 


- 


STK-T-1 




T 


1C7 


2A B2 


07 20 


0F 






#PUSH1 


C 






- JMP 








IF STK > T 






1C8 


71 


61 


EC 


68 


FF 






1 B 


& 


ZQ 


- 


T 


- - - - 


- 


- 


- 


-> T 




T 


1C9 


0F 


E0 


0F 


E0 


03 


.MAP 


255 


1 Q 


OR 


DZ 






- - S JMP 


- 


ALU 


IR4 


JMAP 




Q 


ICA 


2A DE 


0C 


40 


FF 


UGEQ 




1 - 


- 


DA 1 


T 


- 


_ _ — 


S 


POP 


- 


STK-T 




T 


ICB 


29 


CA 


07 


20 


0F 






#PUSH0 


-C 






- JMP 








IF STK < T 






ICC 


6F 


El 


EC 


70 01 






1 B 


OR 


DZ 


- 


T 


- - - - 


- 1 


1 




1 -> T 




T 


ICD 


BF 


E0 


0F 


E0 


03 






1 Q 


OR 


DZ 


- 


- 


- - S JMP 


- 


ALU 


IR4 


JMAP 




Q 
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USED REGS 














.MAP 


256 






























ICE 


6F 


E0 


6C 


60 


04 


TRA 




1 B 


OR 


DZ 


- 


3 


- 


— - 


- 


8 


ALU 


IR 


IR -> R3 




3 


ICF 


6F 


E0 


4C 


48 FF 






1 B 


OR 


DZ 


- 


2 


- 


- - - 


S 





POP 


- 


STK -> R2 




2 


1D8 


6E 


7E 


2C 


60 


FF 






1 B 


OR 


ZA 


T 


1 


- 





- 





- 


- 


T -> Rl 




1 T 


IDl 


5F 


El 


EC 


40 


FF 






1 B 


OR 


DZ 8 


- 


T 


- 





s 


a 


POP 


- 


STK -> T 




T 


1D2 


42 


78 


07 


20 


0F 






TRANSFER T 








- JMP 










TRANSFER(R3,R1 


R2) 
















,MAP 


257 






























103 


6F 


E0 


BC 


60 


04 


RDS 




1 B 


OR 


OZ 


- 





- 


- — 


- 





ALU 


IR 


IR -> R0 







1D4 


6F 


E0 


24 


68 


04 


#ROS 




1 B 


OR 


DZ 


- 


1 


R 


10 - - 


- 





ALU 


IR 


(IRtl0) -> Rl 




1 


1D5 


6E 


E2 


2C 


60 


04 






1 B 


OR 


DA 


1 


1 


- 





- 





ALU 


IR 


IR OR Rl -> Rl 




1 


106 


2E 


62 


0C 


60 


10 






1 - 


OR 


ZA 


1 


- 


- 


— . 


- 





MD 


ALU 


Rl -> MD 




1 


107 


42 


5F 


EC 


60 


30 






1 B« 


+ 


ZA 1 


T 


T 


- 





- 





MAR 


ALU 


T -> MAR, T-^1 


-> T 


T 


108 


66 


60 


0C 


60 


FF 






1 B 


- + 


ZA 








- 


- - - 


- 





- 


- 


R0-1 -> R0 




8 


109 


10 


48 


27 


20 


0F 






#RDS 


-S 








- JMP 










JMP #RDS IF >= 







lOA 


6F 


El 


EC 


40 


FF 






1 B 


OR 


DZ 


- 


T 


- 


— - 


s 


POP 


- 


STK -> T 




T 


lOB 


0F 


E0 


0F 


E0 


03 






1 Q 


OR 


DZ 


- 


- 


- 


- S JMP 


- 





ALU 


IR4 


JMAP 




Q 
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.MAP 260 












.$T- 








IDC 


BE 7E 0C 40 FF 


LODFtf 
.$T* 


1 Q OR 


ZA 


T 


IDD 


45 48 03 20 0F 




#RESTRSTK T 




IDE 


4D 7F EC 40 0F 




1 B* OR 


ZQ 


T 


IDF 


0F EB 0F E0 03 


.MAP 261 


1 Q OR 


DZ 




1E0 


0E 7E 0C 60 FF 


LODFD 


1 OR 


ZA 


T 


lEl 


6F E0 2C 40 FF 




1 B OR 


DZ 


- 


1E2 


6F El EC 40 FF 




IB OR 


DZ 


- 



S POP 



T -> 0, STK -> DUMMY 



- JSR LOAD EXPR STACK 

- - S PSH - T -> STK, Q -> T 
S JMP - ALU IR4 JMAP 



- - - 
S POP - 
S POP - 



T -> 
STK -> Rl 
STK -> T 



T Q 



T Q 




1E3 45 48 03 20 BF 

1E4 4D 7F EC 40 0F 

1E5 2E 62 0C 40 BF 

1E6 0F E0 BF E0 03 



1E7 
1E8 
1E9 
lEA 
lEB 



1F5 
1F6 
1F7 
1F8 
1F9 



IFC 
IFD 



66 D6 0C 70 11 
28 CI 8C 60 FF 
3D EA 87 20 0F 
45 C8 03 20 0F 
0F EB BF E0 03 



lEC 0E 

lED 6F 

lEE 66 

lEF 28 

1F0 3D 

IFl 45 

1F2 2D 

1F3 42 

1F4 BF 



7E BC 
El EC 
D6 0C 
CI 8C 
EA 07 
C8 03 
60 0C 
59 8C 
E0 0F 



68 FF 
40 FF 
70 11 
60 FF 
20 0F 
20 0F 
60 10 
60 3B 
E0 B3 



4F FF EC 40 10 
42 59 8C 60 30 
28 D9 6C 60 FF 
3D E2 B7 2B BF 
0F E0 0F E0 B3 



IFA 2E 7E BC 4B BF 
IFB 0F E0 0F E0 03 



66 79 8C 60 FF 
BF E0 0F E0 03 



.MAP 262 
STORE 



.MAP 263 

STOFV 



.MAP 264 
STOT 



B #RESTRSTK T 

IB. OR ZQ T 

1 - OR ZA 1 

1 Q OR DZ 8 - 



IB -+ DA 1 
1 - - AB 1 
TRAP(3) -C 

ISAVESTK T 

1 Q OR DZ 



OR 
OR 



1 
1 B 
IB -+ 
1 - - 
TRAP(3) 



ZA 
DZ 
DA 1 
AB 1 
-C 



#SAVESTK T 

1 - OR ZQ 
1 B» + ZA 1 
10 OR DZ 



1 B. OR DZ 

1 B» + ZA 1 

1 - - AB 1 

TRAP(3) C 

1 Q OR 02 8 



■MAP 265 
COPT 1 - 
1 

.MAP 256 
DECS 1 B 
1 
$ 



OR 
OR 



ZA 
DZ 



-+ ZA S 

OR DZ - 



S S 



T - 



- JSR 

- - S PSH - 

- - S PSH - 

S JMP - ALU IR4 



- - - 1 21 

- - - - - 

- JMP 

- JSR 

S JMP - ALU IR4 



- . - B - - 

- - S POP - 

- - - 1 21 

- - - - - 

- JMP 

- JSR 

- - - MD ALU 

- - - MAR ALU 
S JMP - ALU IR4 



S MD ' ALU 
- MAR ALU 



- JMP 
S JMP 



ALU IR4 



LOAD EXPR STACK 
T -> STK, g -> T 
Rl -> STK 
JMAP 



H - 17 -> R0 

R0 - S 

IF R0 < S 

STORE EXPR STACK 

JMAP 



T -> Q 

STK -> T 

H - 17 -> R0 

R0 - S 

IF R8 < S 

STORE EXPR STACK 

Q -> MD 

S -> MAR, S+1 -> S 

JMAP 



T -> MD, STK -> T 

S -> MAR, S+1 -> S 

S - H 

TRAP(3) IF S >= H 

JMAP 



- - S PSH - T -> STK 
S JMP - ALU IR4 JMAP 



S JMP - ALU IR4 



S-1 -> S 
JMAP 



T Q 

1 

Q 



H 
S 



T Q 
T 

H 
S 



T 
S 
H S 
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B 
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USED REGS 














.MAP 267 
























IFE 


6F 


E0 


0C 


60 


04 


POOP 


1 B OR 


DZ 


- 





- 








ALU 


IR 


IR -> R0 





IFF 


2E 


78 


0C 


60 


10 




1 - OR 


ZA 


S 


- 


- 


- — 





MD 


ALU 


S -> MD 


S 


200 


20 


El 


cc 


60 


30 




1 - + 


AB 





L 


- 


— - 


MAR 


ALU 


R0 * L -> MAR 


L 


201 


00 


F9 


EC 


60 


FF 




1 * 


AB 


s 


T 


- 


- - - 





- 


- 


S + T -> Q 


S T 


202 


3D 


E2 


07 


20 


BF 




TRAP(3) 


C 








- JMP 








IF OVERFLOW 




203 


28 


56 


0C 


60 


FF 




1 - - 


AQ 1 


H 


- 


- 








- 


- 


H - Q 


H Q 


204 


3D 


EA 


07 


20 


0F 




TRAP(3) 


-c 








- JMP 








IF H < Q 




205 


6F 


E0 


2C 


40 


FF 




1 B OR 


DZ 


- 


1 


- 


S 





POP 


- 


STK -> Rl 


1 


206 


2E 


7E 


0C 


60 


FF 




1 - OR 


ZA 


T 


- 


- 


_ _ _ 





- 


_ 


T 


T 


207 


28 


Dl 


07 


20 0F 




PC0P2 


Z 








- JMP 








IF T=0 




208 


42 


42 


2C 


60 


30 


PCOPl 


1 B« * 


ZA 1 


1 


1 


_ 


_ - _ 





MAR 


ALU 


Rl -> MAR, Rl+1 -; 


> Rl 1 


209 


2D 


60 


0C 


60 


11 




1 - OR 


ZQ 


- 


- 


- 





9 


MD 


MD 


MD -> MD 


Q 


2eA 


42 


59 


BC 


60 


30 




1 B« ■<■ 


ZA 1 


S 


S 


- 








MAR 


ALU 


S -> MAR, S*l -> S S 


20B 


66 


7F 


EC 


60 


FF 




IB -+ 


ZA 


T 


T 


- 


- — 





- 


- 


T - 1 -> T 


T 


20C 


20 


89 


07 


20 


0F 




PCOPl 


-Z 








- JMP 








IF <> 




20D 


6F 


El 


EC 


40 


FF 


PC0P2 


IB OR 


DZ 


_ 


T 


_ 


S 





POP 


- 


STK -> T 


T 


20E 


0F 


E0 


0F 


E0 


03 


$ 


1 Q OR 


DZ 


_ 


- 


- 


- S JMP - 





ALU 


IR4 


JMAP 






4 3 2 19 



20F 62 FF EC 40 FF 
218 3E 62 03 20 0F 
211 0F E0 0F E0 03 



212 6A DF EC 40 FF 

213 3E 6A 03 20 0F 

214 0F E0 0F E0 03 



215 
216 
217 
218 
219 
21A 



21B 
21C 
2 ID 
21E 
2 IF 
220 



221 
222 

223 
224 
225 

226 



0F E0 0C 40 FF 
3C 98 03 20 0F 
2E 64 0C 60 FF 
3E 69 03 20 0F 
6D 61 EC 60 FF 
8F E0 0F E0 03 



2E 7E 00 60 FF 
3E 61 03 20 BF 
0F E0 0C 40 FF 
3A 58 03 20 0F 
6D 61 EC 60 FF 
0F E0 0F E0 03 



2E 7E 0C 60 FF 
3E 61 03 20 0F 
0F E0 0C 40 FF 
3A 58 03 20 0F 
6E 65 EC 60 FF 
0F E0 0F E0 03 



227 4F FF EC 40 40 

228 4F FF F4 60 00 

229 0F Ea 0F E0 03 



22A 


4F FE 00 40 40 


22B 


76 E0 10 70 00 


220 


2A 5E 00 60 40 


22D 


4F El F4 60 00 


22E 


0F E0 0F E0 03 


22F 


4F FF EC 40 40 


230 


IF E0 10 70 00 


231 


53 7F F4 60 00 


232 


0F E0 0F E0 03 
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.MAP 270 

UADD IB + DA 

TRAP(7) C 

1 Q OR DZ 



.MAP 271 

USUB IB - DA 1 T 

TRAP(7) -0 

1 Q OR 02 - 



.MAP 272 
UMUL 



.MAP 273 
UDIV 



1 Q OR DZ - 

#MUL16 T 

1 - OR ZA 2 
TRAP(7) -Z 
IB OR ZQ - 
10 OR DZ - 



1 - OR ZA 
8 TRAP(7) Z 
1 Q OR DZ 
#DIVIDE 
IB OR ZQ 
10 OR DZ 



.MAP 274 
UMOD 



1 - OR ZA 
TRAP(7) Z 
10 OR DZ 
#DIVIDE 
IB OR ZA 
10 OR DZ 8 



■MAP 275 

ROR 1 B» OR DZ 8 T 

1 B« OR DZ 8 T 

10 OR DZ 8 - 

.MAP 275 SHL(X,N MOD 16) 



SHL 



1 B» 
1 B 
1 - 
1 B« 
1 Q 



OR DZ T 

-8 DA 

- ZA 1 T 

DZ 8 

DZ - 



OR 
OR 



.MAP 277 SHR(X,N MOD 16) 



SHR 



1 B« 
1 Q 
1 B» 
1 



OR DZ 
-XR DZ 
& DO 
OR DZ 
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TT- S0POP- T+STK -> T 

- JSR IF OVERFLOW 

- - - - S JMP - ALU IR4 JMAP 



T - 



- - S 8 POP - STK-T -> T 

- JSR IF OVERFLOW 
S JMP - ALU IR4 JMAP 



- JSR 

- JSR 
- S JMP 

- JSR 



S POP - STK -> Q 

T « -> [R2,Q] 

- - R2 

IF OVERFLOW 

- - -> T 

ALU IR4 JMAP 



POP 



JSR 



S JMP - ALU IR4 



- JSR 



S POP 



- JSR 



- - - S JMP - ALU IR4 



IF ZERODIVIDE 
STK -> Q 
Q DIV T -> Q 
-> T 

JMAP 



IF ZEROMOD 
STK -> 
MOD T -> R2 
R2 -> T 

JMAP 
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USED REGS 

T 
Q 

T 




2 

T 




T S SR ALU T -> SR, STK -> T 

T RR - ALU ALU (TtSR) -> T 

- - - S JMP - ALU IR4 JMAP 



8 S 8 SR ALU T -> SR, STK -> R0 

MR - - - - 1 "MSK(0,SR) & R0 -> R0 

- - SR ALU -T -> SR 

T RR - ALU ALU (R8tSR) -> T 

- - - S JMP - 8 ALU IR4 JMAP 



T S SR ALU T -> SR, STK -> T 

- MR - 1 ~M(0,SR) -> g 

T RR - ALU ALU (TtSR) S Q -> T 

- - - S JMP - ALU IR4 JMAP 



T 
Q 

T Q 


T 


2 T 




T 

T 

T 




T 
Q 

T 
Q 



25D 
25E 
25F 
268 
261 
262 

263 
264 



4 3 2 18 



247 62 E4 4C 68 82 

248 66 C4 4C 78 82 

249 4F E5 EC 48 28 

24A 0F E8 BF E8 83 



24B 66 

24C 6F 

24D 24 

24E 6E 

24F 6F 

258 26 

251 6F 

252 6E 

253 6F 

254 2E 

255 62 

256 26 

257 68 

258 2E 

259 25 
25A 6A 
25B 2E 
25C 26 



78 8C 
E8 4C 
F8 17 
E4 44 
E8 8C 
68 BC 
EB 64 
E6 6C 
E8 2C 
62 BC 
E4 8C 

38 87 
C8 BC 
64 0C 
B8 47 
48 0C 
60 0C 

39 47 



68 38 
68 84 
28 8F 
78 FF 
60 81 
68 38 
68 B4 
68 84 
68 81 
68 38 
68 81 
20 0F 
60 FF 
60 FF 
20 0F 
60 FF 
68 FF 
20 0F 



2E 68 0C 60 10 
2E 62 0C 68 38 
62 E6 6C 68 82 
66 C5 6C 78 82 
2E 66 8C 68 28 
BF E8 0F E8 83 

66 09 8C 78 82 
BF E0 BF E8 83 
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.MAP 


233 


6F 


E8 


8C 


48 FF FORI 


234 


6F 


E8 


2C 


48 


FF 


235 


6F 


E8 6C 


68 84 


236 


6F 


EB 


44 


68 


84 


237 


6E 


E4 


4C 


68 


04 


238 


88 


CI 


EC 


68 


FF 


239 


2E 


66 


8C 


6B 


FF 


23A 


23 


CI 


B7 


28 


BF 


23B 


89 


40 


0C 


68 


FF 


23C 


2D 


68 


8C 


68 


FF #UP1 


23D 


24 


79 


47 


28 


BF 


23E 


2E 


68 


0C 


60 


IB 


23F 


2E 


62 


BC 


68 


30 


248 


2E 


62 


BC 


68 


18 


241 


42 59 


8C 


68 


38 


242 


28 


D9 


6C 


6B 


FF 


243 


3D 


E2 


B7 


28 


BF 


244 


4F 


FF 


EC 


48 


18 


245 


42 


59 


8C 


60 


38 


246 


BF 


E8 


0F 


E8 


83 



388 



#EXIT 



.MAP 301 
F0R2 



#POS 



#UP2 



#TERM 
$ 



B OR 


DZ 


- 





B OR 


DZ 


- 


1 


B OR 


DZ 


- 


3 


B OR 


DZ 


- 


2 


B OR 


DA 


2 


2 


- 


AB 1 





T 


- OR 


ZA 8 


3 


- 


#UP1 


Z 






- 


ZQ 1 


- 


- 


- OR 


ZQ 8 


- 


- 


#EXIT 


-FZ 




- OR 


ZA 





_ 


- OR 


ZA 


1 


- 


- OR 


ZA 


1 


- 


B« + 


ZA 1 


S 


S 


- 


AB 1 


S 


H 


TRAP(3) 


C 






B. OR 


DZ 


T 


T 


B» + 


ZA 1 


S 


S 


Q OR 


DZ 8 


- 


- 


B + 


DA 8 


2 


2 


B -■<• 


DA 1 


2 


2 


B« OR 


DZ 8 


2 


T 


Q OR 


DZ 


- 


- 



B -* 
B OR 
#POS 



ZA 
DZ 



S 



-H 



OR 
OR 

- + 

OR 
OR 
OR 

- OR 
B + 
#TERM 
B - 

- OR 
#UP2 

B - 

- OR 
#TERM 



DA 
DZ 
ZA 
DZ 8 
DA 8 
DZ 
ZA 8 
DA 8 

V 
AB 1 
ZA 

-F 
ZA 1 
ZA 



-FZ 



OR ZA 

OR ZA 8 

+ DA 

-+ DA 1 

OR ZA 

OR DZ 



B -* DA 1 S S 
Q OR DZ - - 



R 10 



POP - 
POP - 
ALU IR 
ALU IR 
ALU IR 
- - 



JMP 



- JMP 



MD ALU 
8 MAR ALU 
8 MD ALU 
MAR ALU 



JMP 



S 



- S JMP - 



MD ALU 
8 MAR ALU 
8 ALU IR4 



- - - 8 ALU PC 

- - - 1 2 

- - S 8 PC ALU 

S JMP - 8 ALU IR4 



JMP 



R 18 



R 10 



MAR ALU 

ALU IR 

1 377 

ALU MD 
MAR ALU 
ALU IR 
ALU IR 
ALU MD 
MAR ALU 
ALU MD 



JMP 



- 



- JMP 



JMP 



STK -> R0 
STK -> Rl 
IR -> R3 

IRtlB -> R2 

IR OR R2 -> R2 

R0 - T -> Q 

R3 

GOTO UPl IF R3=8 

-Q -> Q 



GOTO EXIT IF Q>8 

R8 -> MD 

Rl -> MAR 

Rl -> MD 

S -> MAR, S+1 -> S 

S - H 

TRAP(3) IF S >= H 

T -> MD, STK -> T 

S -> MAR, S+1 -> S 

JMAP 

PC * R2 -> R2 

R2 - 2 -> R2 

R2 -> PC, STK -> T 

JMAP 



S-1 -> R4 -> MAR 

IR -> R2 

GOTO PCS IF -H 

(377T10) OR R2 -> R2 

MD -> Ra 

R4 - 1 -> MAR 

IRtl0 -> R3 

IR OR R3 -> R3 

MD -> Rl 

Rl -> MAR 

MD * R2 -> R4 

IF OVERFLOW 

R4 - R0 -> R0 

R2 

GOTO UP2 IF R2>=8 

-R8 -> R8 

R0 

GOTO TERM IF R8>8 
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USED REGS 



- - - MD ALU R4 -> MD 

- - - 8 MAR ALU Rl -> MAR 

- - - ALU PC PC + R3 -> R3 

- - - 1 2 R3 - 2 -> R3 

- - - PC ALU R3 -> PC 
S JMP - ALU IR4 JMAP 



S JMP 



1 2 

ALU IR4 



S - 2 

JMAP 



•> S 



T Q 



4 S 
2 

2 


4 
3 
3 
1 
1 
2 4 
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4 


3 


2 


1 





LABEL 


K DST 


FCT 


RS C 


A 


B 


SHFT SP PC 


S E 


BD 


BS 


COMMENT 


USED REGS 














.MAP 302 


























265 


6F 


E0 


0C 


60 


02 


ENTC 


1 B 


OR 


DZ 8 


- 


8 


- 





- 


ALU 


PC 


PC -> R0 


8 


266 


62 


E0 


04 68 


04 




1 B 


+ 


DA 8 





8 


R 


10 - - 


- 


ALU 


IR 


IRtia + R0 -> R0 





267 


62 


E0 


8C 


60 


04 




1 B 


■I- 


DA 





8 


- 





- 


ALU 


IR 


IR + R0 -> R8 





268 


2E 


60 


0C 


60 


28 




1 - 


OR 


ZA 8 





- 


- 





- 8 


PC 


ALU 


Ra -> PC 





269 


6F 


E0 


04 


68 


04 




1 B 


OR 


DZ 8 


- 





R 


18 - - 


- 8 


ALU 


IR 


IRtia -> R8 





26A 


6E 


E0 


0C 


60 


04 




1 B 


OR 


DA 8 


8 


8 


- 


- - - 


- 8 


ALU 


IR 


IR OR R0 -> R0 





26B 


6F 


E0 


24 


68 


04 




1 B 


OR 


DZ 


- 


1 


R 


18 - - 


- 8 


ALU 


IR 


IRtia -> Rl 


1 


26C 


6E 


E2 


2C 


60 


04 




1 B 


OR 


DA 


1 


1 


- 


_ — 


- 


ALU 


IR 


IR OR Rl -> Rl 


1 


26D 


08 


C2 


0C 


60 


FF 




1 


- 


AB 1 


1 





- 


. — 


- 


- 


- 


Rl - R0 -> 


1 Q 


26E 


63 


60 


4C 


70 


02 




1 B 


+ 


DQ 


- 


2 


- 


- - _ 


- 1 


o 




+ 2 -> R2 


2 Q 


26F 


60 


E4 


4C 


60 


FF 




1 B 


+ 


AB 


2 


2 


- 


- - - 


- 8 


- 


- 


R2 * R2 -> R2 


2 


270 


62 


E4 


4C 


60 


02 




1 B 


+ 


DA 


2 


2 


- 


- — 


- 


ALU 


PC 


PC * R2 -> R2 


2 


271 


2E 


64 


0C 


68 


10 




1 - 


OR 


ZA 


2 


- 


- 


- — 


- 


MD 


ALU 


R2 -> MD 


2 


272 


42 


59 


8C 


60 


30 




1 B» 


+ 


ZA 1 


S 


S 


- 


- - - 


- 


MAR 


ALU 


S -> MAR, S*l -> S 


S 


273 


28 


09 


6C 


60 


FF 




1 - 


- 


AB 1 


S 


H 


- 


— - 


- 


- 


- 


S - H 


H S 


274 


30 


E2 


07 


28 


8F 




TRAP(3) 


C 








- JMP 








TRAP(3) IF S >= H 




275 


68 


DE 


0C 


60 


FF 




1 B 


- 


AB 1 


T 





- 


- - - 


- 


- 


- 


T - R0 -> R8 


T 


276 


27 


OB 


27 20 


8F 




8 #ENTC1 


S 








- JMP 








IF T < R0 




277 


28 


OE 


2C 


60 


FF 




1 - 


- 


AB 1 


T 


1 


- 


- - - 


- 


- 


- 


T - Rl 


1 T 


278 


27 


09 


27 20 


8F 




8 #ENTC1 


-SZ 






- JMP 








IF T > Rl 




279 


62 


40 


0C 


60 


FF 




1 B 


+ 


ZA 1 





8 


- 


- - - 


- 


- 


- 


R0 + 1 -> R0 





27A 


60 


E8 


0C 


68 


FF 




1 B 


+ 


AB 8 





8 


- 





- 8 


- 


- 


R3 + R0 -> Ra 





27B 


62 


E0 


0C 


60 


02 




1 B 


+ 


DA 








- 


- _ - 


~ 


ALU 


PC 


PC + R0 -> R0 


8 


27C 


2E 


60 


0C 60 


20 




1 - 


OR 


ZA 8 





- 


- 


— - 


- 


PC 


ALU 


Ra -> PC 


8 


27D 


6F 


E0 0C 60 


02 


#ENTC1 


1 B 


OR 


DZ 8 


_ 


8 


_ 


_ _ _ 


- 


ALU 


PC 


PC -> Ra 


8 


27E 


62 


E0 04 68 


04 




1 B 


+ 


DA 8 





8 


R 


10 - - 


- 8 


ALU 


IR 


IRtl0 + R0 -> R0 


8 


27F 


62 


E0 


0C 


60 


04 




1 B 


+ 


DA 8 





8 


- 





- 8 


ALU 


IR 


IR * R0 -> R0 


a 


28B 


4F 


El 


EC 


40 


28 




1 B» 


OR 


DZ 8 


a 


T 


- 





S 


PC 


ALU 


R0 -> PC, STK -> T 


a T 


281 


0F 


E0 


0F 


E0 


03 


.MAP 303 


1 Q 


OR 


DZ 8 








- S JMP 


- 8 


ALU 


IR4 


JMAP 


Q 


282 


66 


79 


8C 


60 


38 


EXC 


1 B 


- + 


ZA 


s 


S 


- 





- 8 


MAR ALU 


S - 1 -> S -> MAR 


S 


283 


2D 


60 


BC 


60 


21 




1 - 


OR 


ZQ 8 


- 


- 


- 





- 


PC 


MD 


MD -> PC 


Q 


284 


0F 


E0 0F 


E0 


03 




1 


OR 


DZ 8 


- 


- 


- 


- S JMP 


- 8 


ALU 


IR4 


JMAP 


Q 



4 3 2 19 
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USED REGS 













.MAP 304 
























285 


72 


FE 


BC 70 


0F 


TRAP 


1 B 


S 


DA 





T 


- 


— - 


1 


17 




T MOD 16 -> R0 


286 


6F 


El 


EC 40 


FF 




1 B 


OR 


DZ 8 


- 


T - 


- - - S 





POP 


- 


STK -> T 


287 


3E 


F8 


07 20 


0F 




TRAP(R0) 


T 






- JMP 








TRAP(R0) 












.NOP 


































.NOP 


































.MAP 305 
























28A 


6E 


7E 


4C 60 


FF 


CHK 


1 B 


OR 


ZA 





T 


2 - 


— - 





- 


- 


T -> R2 mi" 


28B 


6F 


E0 


2C 40 


FF 




1 B 


OR 


DZ 





- 


1 - 


S 


8 


POP 


- 


STK -> Rl !LOW 


28C 


6F 


El 


EC 40 


FF 




1 B 


OR 


DZ 


- 


T - 


s 


8 POP 


- 


STK -> T !X" 


28D 


28 


DE 


2C 60 


FF 




1 - 


- 


AB 


1 


T 


1 - 








- 


- 


T-Rl 


28E 


3E 


00 


27 20 


0F 




8 TRAP(4) 




S 






- JMP 








IF X < LOW 


28F 


28 


C5 


EC 60 


FF 




1 - 


- 


AB 


1 


2 


T - 


- — 





- 


- 


R2-T 


290 


3E 


00 


27 20 


0F 




TRAP(4) 




s 






- JMP 








IF HI < X 


291 


0F 


E0 


0F E0 


03 


.MAP 306 


1 Q 


OR 


DZ 









- S JMP - 





ALU 


IR4 


JMAP 


292 


6E 


7E 


4C 60 


FF 


CHKZ 


1 B 


OR 


ZA 





T 


2 - 








- 


- 


T -> R2 mi" 


293 


63 


El 


EC 40 FF 




1 B 


+ 


DZ 





- 


T - 


S 





POP 


- 


STK -> T !X" 


294 


28 


C5 


EC 60 


FF 




1 - 


- 


AB 


1 


2 


T - 








- 


- 


R2 - T 


295 


3E 


0A 


07 20 


0F 




TRAP(4) 




-c 






- JMP 








IF HI < X 


296 


0F 


E0 


0F E0 


03 


#CHKOK 
.MAP 307 


1 


OR 


DZ 









- S JMP - 





ALU 


IR4 


JMAP 


297 


2E 


7E 


0C 60 


FF 


CHKS 


1 - 


OR 


ZA 





T 


- - 


- — 


8 


- 


- 


T 


298 


29 


68 


47 20 


0F 




#CHKOK 




-F 






- JMP 








IF >= 


299 


3E 


08 


07 20 


0F 




TRAP(4) 




T 






- JMP 








TRAP(4) 



2 T 

1 

T 

1 T 

2 T 




2 T 
T 
2 T 



4 3 2 10 



2gA 2A DE 0C 40 FF 

29B 2A Bl 07 20 0F 

29C 71 61 EC 60 FF 

29D 0F E8 0F E0 03 



29E 6A DF EC 40 FF 
29F 2A B9 07 20 0F 
2A0 0F E0 0F E0 03 



Informatik ETH Zuerich 
LABEL K DST FCT RS C A 



.MAP 310 
EQL 

#PUSH8 



■MAP 311 
NEQ 



1 - - DA 1 T 

#PUSH1 Z 
IB & ZQ - 

1 Q OR DZ - 



IB - DA 1 T 
#PUSH1 -Z 
10 OR DZ - 















.MAP 


312 








2A1 


2A 


DE 


0C 


40 


FF 


LSS 




1 - 


- 


DA 1 


2A2 


2A 


B0 


27 


20 


0F 






#PUSH1 


S 


2A3 


71 


61 


EC 


60 


FF 






1 B 


& 


ZQ 


2A4 


0F 


E8 


0F 


E0 


03 


.MAP 


313 


1 Q 


OR 


DZ 


2A5 


2A 


DE 


8C 


40 


FF 


LEQ 




1 - 


- 


DA 1 


2A6 


2A 


Bl 


27 


20 


0F 






#PUSH1 


SZ 


2A7 


71 


61 


EC 


60 


FF 






1 B 


& 


ZQ 


2A8 


0F 


E0 


0F 


E8 


03 






1 


OR 


DZ 














.MAP 314 








2A9 


2A 


DE 


0C 


40 


FF 


GTR 




1 - 


- 


DA 1 


2AA 


29 


CI 


27 


20 


0F 






#PUSH0 


SZ 


2AB 


6F 


El 


EC 


70 


81 


#PUSH1 


1 B 


OR 


DZ 


2AC 


0F 


E0 


0F 


E0 


03 


.MAP 


315 


1 Q 


OR 


DZ 


2AD 


2A 


DE 


0C 


40 


FF 


GEQ 




1 - 


- 


DA 1 


2AE 


29 


C0 


27 


20 


0F 






#PUSH8 


S 


2AF 


6F 


El 


EC 


70 


01 






1 B 


OR 


DZ 


2B0 


0F 


E0 


8F 


E0 


03 


.MAP 


316 


1 Q 


OR 


DZ 


281 


2E 


7E 


ec 


60 


FF 


ABS 




1 - 


OR 


ZA 


2B2 


2B 


58 


47 


20 


0F 


.MAP 


317 


#NG 




-F 


2B3 


6A 


5F 


EC 


60 


FF 


NEG 




1 B 


- 


ZA 1 


2B4 


3E 


88 


83 


20 


BF 






TRAP (10) y 


2B5 


0F 


E0 


0F 


E0 


03 


1 




1 Q 


OR 


DZ 
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T - 



T - 



T - - 



T - 



T T 



— 


S POP 


- 


STK-T 


- JMP 






IF =0 


. _ 


- 8 - 


- 


-> T 


S JMP 


- ALU 


IR4 


JMAP 


._ 


S POP 


. 


STK-T 


- JMP 






IF # 


S JMP 


- ALU 


IR4 


JMAP 


.. 


S POP 


_ 


STK-T 


- JMP 






IF STK < T 





- - 


- 


-> T 


S JMP 


- ALU 


IR4 


JMAP 


__ 


S POP 


. 


STK-T 


- JMP 






IF STK <= T 


_ _ 


- - 


- 


-> T 


S JMP 


- ALU 


IR4 


JMAP 



- - S 8 POP - STK-T 

- JMP IF STK <= T 

- - - 1 1 1 -> T 

S JMP - ALU IR4 JMAP 



- - S POP - STK-T 

- JMP IF STK < T 

- - - 1 1 1 -> T 
S JMP - 8 ALU IR4 JMAP 



- JMP 



- JSR 

S JMP 



- ALU IR4 



JMP IF >= 



-T -> T 

IF OVERFLOW 

JMAP 
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USED REGS 



T Q 
Q 



T Q 
Q 



T Q 
Q 
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4 3 2 10 LABEL K DST FCT RS C A B SHFT SP PC S E BD BS COMMENT USED REGS 

.MAP 320 

2B6 6E FF EC 40 FF OR IB OR DA 8 T T - S POP - STK OR T -> T T 

2B7 0F E0 0F E0 03 1 Q OR DZ - - - - S JMP - ALU IR4 JMAP Q 

.MAP 321 

2B8 7A FF EC 40 FF XOR IB XOR DA T T - SB POP - STK XOR T -> T T 

2B9 0F E0 0F E0 03 1 Q OR DZ - - - - S JMP - 8 ALU IR4 JMAP Q 

.MAP 322 

2BA 72 FF EC 40 FF AND IB & DA T T S POP - STK & T -> T T 

2BB 0F E0 0F E0 03 1 Q OR DZ - - - - S JMP - ALU IR4 JMAP 

.MAP 323 I 

2BC 7E 7F EC 60 FF COM IB -XR ZA T T - - - -(0 XOR T) -> T T i 

2BD 0F E0 0F E0 03 1 Q OR DZ - - - - S JMP - ALU IR4 JMAP 

.MAP 324 

2BE 63 C0 0C 40 40 IN IB + DZ 1 - S B SR ALU STK+1 -> R0 -> SR 

2BF 26 C0 0C 70 11 1 - -+ DA 1 - - 1 21 R0 - 21 

2C0 29 C2 07 20 0F #PUSH0 C - JMP IF R0 > 16 

2C1 72 FF F4 70 01 IB 8 DA T T RR - 1 1 (ItSR) S T -> T T 

2C2 2A B9 07 20 BF #PUSH1 -Z - JMP GOTO PUSHl IF #0 

2C3 0F E8 8F E0 03 1 Q OR DZ 8 - - - - S JMP - ALU IR4 JMAP Q 



.MAP 325 

2C4 5C FF EC 40 0F LINIL 1 B» -XR AB 8 T T - S PSH - T -> STK, -1 -> T T 

2C5 0F E0 0F E0 03 1 Q OR DZ - - - - S JMP - ALU IR4 JMAP 



.MAP 326 ; 

2C6 2E 7E 0C 60 48 MSK 1 - OR ZA T - - SR ALU T -> SR T | 

2C7 6F El FC 70 08 IB OR DZ 8 - T MR - 1 MSK(SR) -> T T 

2C8 0F E8 0F E8 03 1 OR DZ - - - - S JMP - ALU IR4 JMAP Q 

.MAP 327 

2C9 7 A FF EC 70 01 NOT 1 B XOR DA T T - 1 1 1 XOR T -> T T 

2CA 0F E0 8F E0 03 1 Q OR DZ - - - - S JMP - ALU IR4 JMAP 

$ 
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A 


3 


2 


1 





LABEL 
.MAP 330 


K DST FCT RS C 


A 


B 


SHFT SP PC 


S E 


BD 


BS 


COMMENT 


USED REGS 


2CB 


62 


FF 


EC 


40 


FF 


ADD 


IB + DA 


T 


T 


_ _ - _ 


S 


POP 


- 


T+STK -> T 


T 


2CC 


3E 80 


83 


28 0F 




TRAP(10) V 






- JSR 








IF OVERFLOW 




2CD 


0F 


E8 


0F 


E0 


03 


.MAP 331 


1 Q OR DZ 






- - S JMP 


- 


ALU 


IR4 


JMAP 





2CE 


BA 


DF 


EC 


40 


FF 


SUB 


IB - DA 1 


T 


T 


_ _ _ _ 


S 


POP 


- 


STK-T -> T 


T 


2CF 


3E 


80 


83 


20 


0F 




TRAP(10) V 






- JSR 








IF OVERFLOW 




2D0 


0F 


E0 


0F 


E0 


03 


.MAP 332 


1 Q OR DZ 






- - S JMP 


- 9 


ALU 


IR4 


JMAP 


Q 


2D1 


0F 


E0 


0C 


40 


FF 


MUL 


1 Q OR DZ 


- 


- 


- - — 


S 


POP 


- 


STK -> Q 


Q 


2D2 


78 


7E 


i5C 


60 


FF 




1 B XOR AQ 


T 


3 


- - - - 


- 


- 


- 


T XOR -> R3 


3 T Q 


2D3 


20 


60 


0C 


60 


FF 




1 - OR ZQ 8 


_ 


_ 


_ _ _ 


- 


_ 


_ 


Q 


Q 


2D4 


2D 


68 


47 


20 


BF 




B QPOS -F 






- JMP 








IF >= 




2D5 


09 


40 


0C 


60 


FF 




1 Q - ZQ 1 


- 


- 





- 


- 


- 


-Q -> g 





2D6 


2E 


7E 0C 


60 


FF 


OPOS 


1 - OR ZA 8 


T 


- 


_ — . 


- 


- 


- 


T 


T 


2D7 


2D 


98 


47 


20 


0F 




8 TPOS -F 






- JMP 








IF >= 8 




2D8 


6A 


5F 


EC 


60 


FF 




IB - ZA 1 


T 


T 


- - - - 


- 


- 


- 


-T -> T 


T 


2D9 


3C 


98 


03 


20 


BF 


TPOS 


#MUL16 


T 




- JSR 








. T -> [R2,0] 




2DA 


2E 


64 


00 


60 


FF 




1 - OR ZA 


2 


_ 


_ _ _ 


- 


_ 


_ 


R2 


2 


2DB 


2D 


El 


07 


20 


0F 




NO-OV Z 






- JMP 








IF R2=0 




2DC 


3E 


88 


03 


20 


0F 




TRAP(10) T 






- JSR 








IF OVERFLOW 




2DD 


2E 


08 


07 


20 


BF 




NO, OVER T 






- JMP 








IF MASKED 




2DE 


2D 


60 


0C 


60 FF 


NO-OV 


1 - OR ZQ 8 


- 


- 


_ 


- e 


- 


- 


Q 


Q 


2DF 


3E 


80 


43 


20 


0F 




TRAP(10) F 






- JSR 








IF OVERFLOW 




2EB 


2E 


66 


0C 


60 FF 


NO, OVER 


1 - OR ZA 


3 


- 


- - - - 


- 


- 


- 


R3 


3 


2E1 


2E 


38 


47 


20 


BF 




8 RESPOS -F 






- JMP 








JMP IF >=8 




2E2 


09 


40 


0C 


60 


FF 




10 - ZQ 1 


- 


- 





- 


- 


- 


-Q -> 


Q 


2E3 


6D 


61 


EC 


60 


FF 


RESPOS 


IB OR ZQ 


- 


T 


- — - 


- 


- 


- 


Q -> T 


T 


2E4 


0F 


E0 


0F 


E0 


03 


,MAP 333 


1 Q OR DZ 8 






- - S JMP 


- 


ALU 


IR4 


JMAP 





2E5 


0F 


Ee 


0C 


40 


FF 


DIV 


10 OR DZ 8 


- 


- 


_ _ - - 


S 


POP 


„ 


STK -> 





2E6 


78 


7E 


6C 


60 


FF 




1 B XOR AQ 


T 


3 


- - - - 


- 


- 


- 


T XOR Q -> R3 


3 T Q 


2E7 


2D 


60 


0C 


60 


FF 




1 - OR ZQ 


- 


_ 


_ _ _. 


- 


_ 


_ 








2E8 


2E AS 


47 20 


0F 




8 D.QPOS -F 






- JMP 








JMP IF >=3 




2E9 


09 


40 


0C 


60 


FF 




1 Q - ZQ 1 


- 


- 


- - - _ 


- 


- 


- 


-Q -> Q 


Q 


2EA 


2E 


7E 


0C 68 


FF 


D,CPOS 


1 - OR ZA 


T 


- 


_ _ _ _ 


- 


- 


- 


T 


T 


2EB 


3E 


81 


03 


20 


0F 




TRAP(10) Z 






- JSR 








IF ZERODIVIDE 




2EC 


2F 


28 


47 


20 


0F 




D.TPOS -F 






- JMP 








IF > 




2ED 


6A 


5F 


EC 


60 


FF 




IB - ZA 1 


T 


T 


. — _ 


- 8 


- 


- 


-T -> T 


T 


2EE 


2D 


60 


0C 


60 


FF 




1 - OR ZQ 


- 


- 


_ _ _ . 


- 


^ 


- 








2EF 


2F 


28 


47 


20 


0F 




D.TPOS -F 






- JMP 








GOTO #D3 IF >=0 




2F0 


26 


7E 


00 


60 


FF 




1 - -+ ZA 8 


T 


- 


- _ . _ 


- 


- 


- 


T - 1 


T 


2F1 


3E 


81 


03 


20 


0F 




TRAP(18) Z 






- JSR 








IF OV JMININT DIV 


-1" 


2F2 


3A 


58 


03 


20 0F 


D.TPOS 


#DIVIDE T 






- JSR 








Q DIV T -> Q 




2F3 


2E 


66 


0C 


68 


FF 




1 - OR ZA 8 


3 


_ 


_ _ _ 


- 


_ 


-. 


R3 


3 


2F4 


2F 


68 


47 


28 


0F 




8 D. RESPOS -F 






- JMP 








JMP IF >=8 




2F5 


09 


40 


0C 


68 


FF 




1 Q - ZQ 1 


- 


- 


_ 


- 


- 


- 


-Q -> Q 


Q 


2F6 


6D 


61 


EC 


60 FF 


D. RESPOS 


IB OR ZQ 


- 


T 


_ — _ 


- 


- 


- 


Q -> T 


T 


2F7 


0F 


E0 


0F 


EB 


B3 




10 OR DZ 


- 


- 


- - S JMP 


- 


ALU 


IR4 


JMAP 
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USED REGS 



2F8 22 5E 0C 60 40 
2F9 6F El F4 70 01 



2FA 0F E0 BF E0 03 



.MAP 335 

BIT 1 - 

1 B 

.MAP 336 NOP 
1 Q 



+ ZA 1 
OR DZ 



OR DZ 



- - SR ALU T*l -> SR 

T RR - 1 1 (ItSR) -> T 



S JMP - a ALU IR4 JMAP 



2FB 
2FC 

2FD 
2FE 
2FF 
300 



6F E0 2C 40 FF 
83 E0 eC 48 FF 
03 EB BC 70 00 
C2 60 0C 68 FF 
60 62 2C 68 FF 
62 08 BC 68 FF 



.MAP 337 
MOVE 



B 

BQL 



OR 



1 BQL 



DZ 8 
DZ 8 
DZ 8 
ZA 8 
AQ 8 
ZA C 



S POP - STK -> Rl !FROM OFFS 1 

S POP - STK -> Q IFROM FP" Q 

- 1 [0,Q]»2 -> [R0,Q3 Q 

- - - [RB,0]»2 -> [R0,Q] Q 

- - - Rl + Q -> Rl IFROM ADDR 1 Q 

- - - R0 + C -> R8 IFROM BNK" 



381 26 Ca BC 70 84 
302 3E 21 87 28 BF 



303 


6F EB 6C 48 FF 


304 


03 EB BC 48 FF 


305 


C3 EB 4C 78 80 


306 


C2 64 4C 68 FF 


307 


68 66 6C 68 FF 


308 


62 04 4C 60 FF 


309 


20 E7 EC 68 FF 


30A 


62 04 8C 68 FF 


30B 


26 C8 BC 70 04 


30C 


3E 22 87 20 BF 



3BD 2E 7E 00 60 FF 
30E 31 71 07 28 BF 



3BF 
310 
311 
312 
313 
314 
315 
316 



2E 60 
42 42 
62 80 
62 46 
42 04 
26 66 
66 7F 
30 F9 



0C 60 D0 
2C 60 30 
BC 68 FF 
6C 68 11 
40 68 D0 
00 60 30 
EC 60 FF 
07 20 0F 



317 6F El EC 40 FF 

318 BF E0 0F E0 03 



MOVFl 



M0VF2 
$ 



1 - -+ DA 
8 TRAP(5) 



1 B 
1 
1 BQL 
1 BQL 
1 B 
1 B 



OR 



DZ 8 
DZ 8 
DZ 8 
ZA 8 
AQ 8 
ZA C 



1 - OR 
8 M0VF2 



1 - 

1 B» + 

IB + 

1 B + 

1 B« + 

1 - - 

1 B - 
MOVFl 



OR 



ZA 8 
Z 

ZA 
ZA 1 
ZA C 
ZA 1 
ZA 
ZA 8 
ZA 8 



1 - * AB 8 3 

IB + ZA C 2 

1 - -+ DA 1 4 
8 TRAP(5) C 



1 B 

1 



OR 
OR 



T - 



DZ 8 - T 
DZ 8 - - 



- JMP 



- JMP 



- JMP 



JMP 



S JMP 



- 1 4 




R0 - 4 

IF BNK = 4 


8 


S POP 
S POP 

- 1 8 

- - 

- - 

- - 


- 


STK -> R3 !T0 OFFS" 
STK -> Q ITO FP" 
(0,Q)«2 -> (R2,Q) 
(R2,Q)«2 -> (R2,Q) 
R3 * -> R3 ITO ADDR" 
R2 + C -> R2 ITO BNK" 


3 

Q 
2 
2 
3 

2 


- - 

- - 

- 1 4 


- 


R3 + T 

R2 + -> R4 

R4 - 4 

IF OVERFLOW 


3 
2 
4 


- - 


- 


T 

IF T=8 


T 


- BNK 

- MAR 

- - 

- MD 

- BNK 

- MAR 

- - 


ALU 
ALU 

MD 

ALU 

ALU 


Re -> BNK 

Rl -> ,MAR, Rl + 1 -> Rl 

R0 + C -> R0 

MD -> MD, R3 + 1 -> R3 

R2 -> BNK, R2 + -> R2 

R3 - 1 -> MAR 

T - 1 -> T 

IF <> 



1 
8 
3 
2 
3 
T 


S POP 
- ALU 


IR4 


STK -> T 
JMAP 


T 
Q 



319 
31A 
31B 
31C 
31D 

31E 
31F 

328 
321 
322 
323 

324 



4 3 2 1 



63 C0 4C 40 FF 

3E 21 87 20 0F 

68 FE 4C 60 FF 

62 FE 2C 40 FF 

3E 22 07 20 8F 



2E 7E BC 60 FF 
32 51 07 20 0F 

28 E5 EC 60 30 
2D 60 0C 60 11 
28 C3 EC 60 30 
66 7F EC 60 FF 
32 09 07 20 0F 



325 6F El EC 40 FF 

326 0F E0 0F EB 03 
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.MAP 340 
MBV 



MOVl 



M0V2 



IB + DZ 1 
TRAP(5) Z 
IB + AB 
IB + DA 

TRAP(5) C 

1 - OR ZA 

M0V2 Z 

1 - - AB 
1 - OR ZQ 
1 - - AB 1 
IB -+ ZA 
MGVl -Z 



1 B 
1 



OR DZ 
OR DZ 



Micro-Code-Assembler 'MIA 



A B SHFT SP PC S E BD BS 



- 2 



1 T 
T T 



S POP 



JMP 



S POP 



T - - 



2 T 



A' 
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COMMENT 




USED REGS 


STK + 1 -> R2 


!SRC" 


2 


IF NIL 






T * R2 -> R2 




2 T 


STK + T -> Rl 


!DST" 


1 T 


IF OVERFLOW 






T 


ISIZE" 


T 


IF T=0 







JMP 



JMP 



- - - MAR ALU R2 - T - 1 -> MAR 

- - - 8 MD MD MD -> MD 

- - - 8 MAR ALU Rl - T -> MAR 

- - - - - T - 1 -> T 

- JMP IF <> 



- - S POP - STK -> T 
S JMP - 8 ALU IR4 JMAP 



2 T 
Q 

1 T 
T 



327 62 FE 4C 48 FF 

328 3E 22 07 20 0F 

329 62 FE 2C 40 FF 
32A 3E 22 07 20 0F 

32B 2E 7E 0C 60 FF 

32C 33 71 07 20 BF 



.MAP 341 
CMP 



IB + DA T 2 
TRAP(5) C 

IB + DA T 1 
TRAP(5) C 



1 - OR ZA 
CMP3 Z 



T - 



32D 


28 


C5 


EC 


60 


30 


CMPl 


1 - 


- 


AB 1 


2 


T 


32E 


6F 


E0 


BC 


60 


01 




1 B 


OR 


DZ 


- 





32F 


28 


C3 


EC 


60 


30 




1 - 


- 


AB 1 


1 


T 


330 


2A 


C0 


BC 


68 


01 




1 - 


- 


DA 1 





- 


331 


33 


49 


07 


20 


BF 




CMP2 


-Z 






332 


66 


7F 


EC 


68 


FF 




1 B 


-+ 


ZA 8 


T 


T 


333 


32 


D9 


87 


28 


0F 




CMPl 


-Z 






334 


6F 


El 


EC 


48 


01 


CMP2 


1 B 


OR 


DZ 


_ 


T 


335 


6E 


61 


EC 


68 


FF 




1 B 


OR 


ZA 





T 


335 


0F 


E0 


0F 


E8 


03 




1 Q 


OR 


DZ 


- 


- 


337 


2E 


7E 


BC 


40 


0F 


CMfe 


1 - 


OR 


ZA 


T 


- 


338 


0F 


E0 


0F 


E0 


03 


$ 


1 Q 


OR 


DZ 


~ 


~ 



S POP - 


STK + T -> R2 
IF OVERFLOW 


!SRC1" 


2 T 


S POP - 


STK -^ T -> Rl 
IF OVERFLOW 


!SRC2" 


1 T 


- B - - 


T 

IF T-0 


ISIZE" 


T 



- JMP 



JMP 



- JMP 



- - - MAR ALU R2 - T -> MAR 

- - - ALU MD MD -> Re 

- - - MAR ALU Rl - T -> MAR 

- - - ALU MD MD - R0 

- JMP IF MD <> R0 

- - - 8 - - T - 1 -> T 

- JMP IF <> B 

- - S ALU MD MD -> T -> STK 

- - - - - R0 -> T 
S JMP - ALU IR4 JMAP 

- - S PSH - T -> STK 
S JMP - ALU IR4 JMAP 



2 T 


1 T 




T 

T 
Q 
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.MAP 342 
339 4F A8 07 20 0F DDT T 

.MAP 343 
33A 68 F8 07 20 0F REPL T 

.MAP 344 
33B 5D 28 07 20 0F BBLT T 

.MAP 345 
33C 51 F8 07 20 0F DCH T 



JMP 
JMP 
JMP 
JMP 
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USED REGS 















.MAP 


346 




























33D 


67 


E0 


0C 


40 


40 


UNPACK 


1 B 


- + 


DZ 


- 





- — 


- 


S 





SR 


ALU 


-STK-1 -> R0 -> SR 





33E 


4F 


FF 


F4 


60 


00 






1 B« 


OR 


DZ 


T 


T 


RR - - 


- 


- 





ALU 


ALU 


TtSR -> T 


T 


33F 


22 


E0 


0C 


40 


40 






1 - 


+ 


DA 





- 


- — 


- 


S 





SR 


ALU 


STK + R0 -> SR 





340 


76 


FF 


FC 


70 


00 






1 B 


-& 


DA 


T 


T 


MR - - 


- 


- 


1 







"MSK(0,SR) S T -> T 


T 


341 


0F 


E0 0F 


E0 


03 






1 Q 


OR 


DZ 


- 


- 


- - S 


JMP 


- 





ALU 


IR4 


JMAP 

















.MAP 


347 




























342 


63 


C0 


6C 


40 


FF 


PACK 




1 B 


+ 


DZ 1 


- 


3 


- — 


- 


s 





POP 


- 


STK + i -> R3 


3 


343 


2A 


C6 


0C 


40 


40 






1 - 


- 


DA 1 


3 


- 


- — 


- 


s 





SR 


ALU 


STK - R3 -> SR 


3 


344 


6F 


E0 


4C 


40 


30 






1 B 


OR 


DZ 


- 


2 


- — 


- 


s 





MAR 


ALU 


STK -> R2 -> MAR 


2 


345 


6F 


E0 


IC 


70 


00 






1 B 


OR 


DZ 


- 





MR - - 


- 


- 


1 







MSK(0,SR) -> R0 


B 


346 


2E 


66 


0C 


60 


40 






1 - 


OR 


ZA 


3 


- 


_ — 


- 


- 





SR 


ALU 


R3 -> SR 


3 


347 


4F 


E0 


14 


60 00 






1 B» 


OR 


DZ 


e 





RR - - 


- 


- 





ALU ALU 


(R0tSR) -> Ra 


B 


348 


72 


E0 


2C 


60 


01 






1 B 


& 


DA 





1 


_ _ 


_ 


_ 





ALU 


MD 


MD S R0 -> Rl 


1 


349 


4F 


FF 


F4 


60 


00 






1 B« 


OR 


DZ 


T 


T 


RR - - 


- 


- 





ALU 


ALU 


(TtSR) -> T 


T 


34A 


74 


El 


EC 


60 


FF 






1 B 


-& 


AB 





T 


- — 


- 


_, 





- 


- 


~R9 8 T -> T 


T 


34B 


2C 


E3 


EC 


60 


10 






1 - 


OR 


AB 


1 


T 


_ _ _ 


_ 


_ 





MD 


ALU 


Rl OR T -> MD 


1 T 


34C 


4F 


E5 


EC 


40 


30 






1 B» 


OR 


DZ 


2 


T 


_ — 


- 


s 





MAR 


ALU 


R2 -> MAR, STK -> T 


2 T 


34D 


0F 


E0 


0F 


E0 


03 






1 Q 


OR 


DZ 


- 


- 


- - S 


JMP 


- 





ALU 


IR4 


JMAP 


Q 
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USED REGS 















,HAP 350 














34 E 


4F 


FE 


0C 


40 


04 


6B 


1 


B« 


OR 


DZ 


T 





34F 


2E 


7C 


0C 


60 


30 




1 


- 


OR 


2A 


L 


- 


358 


35 


28 


07 


20 


0F 







#GB 




T 






351 


2E 


7E 


0C 


60 


30 


#GBREP 


1 


_ 


OR 


ZA 


T 


_ 


352 


6F 


El 


EC 


60 


01 


#GB 


1 


B 


OR 


DZ 


- 


T 


353 


66 


60 


0C 


60 


FF 




1 


B 


- + 


ZA 








354 


35 


19 


07 


20 


0F 







#GBREP 


-Z 






355 


0F 


E0 


0F 


E0 


03 




1 Q 


OR 


DZ 


- 


- 














.MAP 351 














356 


2E 


7C 


0C 


60 


30 


GBi 


1 


- 


OR 


ZA 


L 


- 


357 


4F 


FF 


EC 


40 


01 




1 


B« 


OR 


DZ 


T 


T 


358 


0F 


E0 


0F 


E0 


03 




1 


OR 


DZ 


- 


- 














.MAP 352 














359 


6E 


7E 


2C 


60 


FF 


ALLOC 


1 


B 


OR 


ZA 


T 


1 


35A 


6E 


79 


EC 


60 


FF 




1 


B 


OR 


ZA 


S 


T 


35B 


60 


E3 


8C 


60 


FF 




1 


B 


+ 


AB 


1 


S 


35C 


36 


62 


07 


20 


0F 







TRAP3 


C 






35D 


28 


D7 


8C 


60 


FF 




1 


- 


- 


AB 1 


H 


S 


35E 


36 


6A 


07 


20 


0F 







TRAPS 


-C 






35F 


0F 


E0 


0F 


E0 


03 


.MAP 353 


1 





OR 


DZ 






360 


6F 


E0 


2C 


60 


04 


ENTR 


1 


B 


OR 


DZ 


- 


1 


361 


60 


E3 


8C 


60 


FF 




1 


B 


+ 


AB 


1 


S 


362 


36 


62 


07 


20 


0F 







TRAP3 


C 






363 


28 


D7 


8C 


60 


FF 




1 


- 


- 


AB 1 


H 


s 


364 


36 


6A 


07 20 


0F 







TRAP3 


-C 






365 


0F 


E0 


0F 


E0 


03 




1 





OR 


DZ 


- 


- 


366 


64 


C3 


8C 


60 


FF 


TRAP3 


1 


B 


- + 


AB 1 


1 


s 


367 


3D 


E8 


07 


20 


0F 







TRAP(3) 


T 







- - S ALU IR T -> STK, IR -> RQ 

- - - MAR ALU L -> MAR 

- JMP GOTO GB 

- - - MAR ALU T -> MAR 

- - - B ALU MD MD -> T 

- - - - - R9 - 1 -> R0 

- JMP IF # 

S JMP - ALU IR4 JMAP 



T - - 



- - 8 MAR ALU 

- S 8 ALU MD 
JMP - ALU IR4 



L -> MAR 

T -> STK, MD 

JMAP 



■> T 



— 


- - 


- 


T -> Rl 


- - 


- - 


- 


S -> T 


_ _ 


- - 


- 


S*R1 -> S 


- JMP 






IF OVERFLOW 


- - 


- - 


- 


H-S 


- JMP 






IF H < S 


S JMP 


- ALU 


IR4 


JMAP 



- - - ALU IR IR -> Rl 

- - - - - S+Rl -> S 

- JMP IF OVERFLOW 

- - - - - H-S 

- JMP IF H < S 
S JMP - e ALU IR4 JMAP 



8 T 
L 



1 T 
S T 
1 S 

H S 



JMP 



S - Rl -> S 
TRAP(3) 



1 
1 S 

H S 



1 S 
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USED REGS 















.MAP 354 
























368 


6E 


70 80 


68 


FF 


RTN 


1 B 


OR 


ZA 


L 


S 


- 


- 


_ - 


- - 


- 


L -> S 


369 


62 


58 


20 


60 


30 




1 B 


+ 


ZA 1 


3 


1 


- 


- 


— 


- 8 MAR 


ALU 


S+1 -> Rl -> MAR 


36A 


6F 


El 


CO 


60 


01 




1 B 


OR 


DZ 8 


- 


L 


- 


- 


- - 


- ALU MD 


MD -> L 


36B 


62 


42 


20 


60 


30 




1 B 


+ 


ZA 1 


1 


1 


- 


- 


- - 


- MAR ALU 


Rl+1 -> Rl -> MAR 


360 


6F 


E8 


40 


60 


81 




1 B 


OR 


DZ 8 


- 


2 


- 


- 


— 


- ALU MD 


MD -> R2 


36D 


37 


38 


47 


20 


0F 




#L00 


-F 










- JMP 






IF >= 


36E 


2E 


78 


8C 


68 


30 




1 - 


OR 


ZA 


S 


- 


- 


- 


_ _ 


- MAR 


ALU 


S -> MAR 


36F 


6F 


El 


AC 


68 01 




1 B 


OR 


DZ 8 


- 


G 


- 


- 


— 


- ALU 


MD 


MO -> G 


378 


2E 


7A 


8C 


60 


30 




1 - 


OR 


ZA 8 


G 


- 


- 


- 


— 


- MAR 


ALU 


G -> MAR 


371 


2D 


68 


80 


60 


El 




1 - 


OR 


ZQ 8 


- 


- 


- 


- 


- - 


- F 


MD 


MD -> F 


372 


7A 


E4 


44 


71 


01 




1 B 


XOR 


DA 8 


2 


2 


R 


1 


— 


- 1 1 




Itl XOR R2 -> R2 


373 


2E 


64 


80 60 


20 


#LOC 


1 - 


OR 


ZA 8 


2 


- 


- 


- 


- - 


- PC 


ALU 


R2 -> PO 


374 


0F 


E0 


0F 


E0 


03 


.MAP 355 


1 


OR 


DZ 8 










S JMP 


- ALU 


IR4 


JMAP 


375 


6F 


E0 


60 


68 


04 


OX 


1 B 


OR 


DZ 


- 


3 


- 


- 


_ . 


- ALU 


IR 


IR -> R3 


376 


6F 


E0 


40 


60 


06 




1 B 


OR 


DZ 


- 


2 


- 


- 


- - 


- ALU 


IR» 


IR -> R2 


377 


2E 


7A 


80 


68 


10 


#MARKG 


1 - 


OR 


ZA 


G 


_ 


- 


_ 


- _ 


- MD 


ALU 


G -> MD 


378 


6E 


78 


20 


68 


38 




1 B 


OR 


ZA 


S 


1 


- 


- 


— 


- 8 MAR 


ALU 


S -> Rl -> MAR 


379 


41 


DD 


80 


68 


10 




1 B. 


+ 


ZB 1 


L 


S 


- 


- 


— 


- MD 


ALU 


L -> MD, S+1 -> S 


37A 


42 


59 


80 


60 


30 




1 B. 


+ 


ZA 1 


S 


S 


- 


- 


- - 


- MAR ALU 


S -> MAR, S+1 -> S 


37B 


6F 


E8 


84 


71 


01 




1 B 


OR 


DZ 


- 


4 


R 


1 


— 


- 1 1 




Itl -> R4 


37C 


6E 


E8 


80 


60 


02 




1 B 


OR 


DA 


4 


4 


- 


- 


- - 


- ALU 


PO 


PC OR R4 -> R4 


37D 


2E 


68 


80 


60 


10 




1 - 


OR 


ZA 


4 


- 


- 


- 


— 


~ MD 


ALU 


R4 -> MD 


37E 


42 


59 


80 


68 


30 




1 B* 


+ 


ZA 1 


S 


S 


- 


- 


- - 


- MAR 


ALU 


S -> MAR, S+1 -> S 


37F 


2D 


68 


00 


68 


IE 




1 - 


OR 


ZQ 


- 


- 


- 


- 


— 


- MD 


F 


F -> MD 


388 


42 


59 


80 


60 


30 




1 B» 


+ 


ZA 1 


S 


s 


- 


- 


_ - 


- MAR 


ALU 


S -> MAR, S+1 -> S 


381 


6E 


63 


00 


68 


FF 




1 B 


OR 


ZA 


1 


L 


- 


- 


— 


- - 


- 


Rl -> L 


382 


6F 


E8 


80 


70 


20 




1 B 


OR 


DZ 8 


_ 





_ 


_ 


_ _ 


- 1 40 




49 -> R0 


383 


28 


E8 


60 


60 


38 




1 - 


+ 


AB 8 





3 


- 


- 


- - 


- MAR 


ALU 


R0+R3 -> MAR 


384 


6F 


El 


AC 


60 


01 




1 B 


OR 


DZ 8 


- 


G 


- 


- 


- - 


- ALU 


MD 


MD -> G 


385 


2E 


7A 


ec 


60 


30 




1 - 


OR 


ZA 


G 


- 


- 


- 


- - 


- MAR 


ALU 


G -> MAR 


386 


2D 


60 


00 


60 


El 




1 - 


OR 


ZQ 


- 


- 


- 


- 


- - 


- F 


MD 


MO -> F 


387 


28 


E4 


40 


60 


20 




1 - 


+ 


AB 


2 


2 


- 


- 


- - 


- 8 PC 


ALU 


R2 + R2 -> PC 


388 


6F 


E0 


24 


68 


04 




1 B 


OR 


DZ 


- 


1 


R 


10 


- - 


- ALU 


IR 


IRtlB -> Rl 


389 


6E 


E2 


20 


60 


06 




1 B 


OR 


DA 8 


1 


1 


- 


- 


- - 


- 8 ALU 


IR* 


IR OR Rl -> Rl 


38A 


2E 


62 


00 


60 


20 




1 - 


OR 


ZA 8 


1 


- 


- 


- 


- - 


- PC 


ALU 


Rl -> PO 


38B 


0F 


E0 


0F 


E0 


83 


.MAP 356 


1 


OR 


DZ 










S JMP 


- ALU 


IR4 


JMAP 


380 


4F 


FF 


EC 


40 


10 


CI 


1 B» 


OR 


DZ 


T 


T 


- 


- 


- - 


S MD 


ALU 


T -> MD, STK -> T 


38D 


6F 


E0 


40 60 


06 




1 B 


OR 


DZ 8 


- 


2 


- 


- 


- - 


- ALU 


IR* 


IR -> R2 


38E 


39 


98 


07 


20 


0F 




#MARK 


T 










- JMP 






MARK(IR) 














.MAP 357 
























38F 


25 


78 


00 


60 


30 


OF 


1 - 


- + 


ZA 


S 


- 


- 


- 


— 


- MAR 


ALU 


S - 1 -> MAR 


398 


6F 


E0 


60 


70 


FF 




1 B 


OR 


DZ 


- 


3 


- 


- 


_ . 


- 1 377 




377 -> R3 


391 


72 


E6 


4C 


68 


01 




1 B 


X 


DA 8 


3 


2 


- 


- 


- - 


- ALU 


MO 


MD & R3 -> R2 


392 


72 


E6 


64 


68 


81 




1 B 


8 


DA 


3 


3 


R 


18 


- - 


- ALU 


MD 


ROT(MD,10) S R3 -> 


393 


37 


78 


07 


28 


0F 




8 #MARKG 


T 










- JMP 









S L 
1 S 
L 
1 
2 

S 
G 
G 

2 
2 
Q 



3 
2 

G 

1 S 
S L 
S 
4 
4 
4 
S 

Q 
S 
1 L 

8 

8 3 

G 

6 



2 

1 

1 

1 





R3 



S 

3 
2 3 

3 



Informatik ETH Zuerich Micro-Code- Assembler 'MIA' 
4 3 2 10 LABEL K DST FCT RS C A B SHFT SP PC S E BD BS COMMENT 
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USED REGS 





.MAP 360 


394 2E 7C 0C 60 10 


CL 1 - OR ZA L 


395 6F E0 4C 60 06 


IB OR DZ - 


396 39 98 07 20 0F 


#MARK T 



JMP 



MD ALU L -> MD 
ALU IR* IR -> R2 
MARK(IR) 



397 2E 7C 0C 60 10 

398 6D 60 4C 60 FF 



. MAP 361 , 362 , 363 , 364 , 365 , 366 , 367 , 370 , 371 , 372 , 373 , 374 , 375 , 376 , 377 

CLl 1 - OR ZA L - - MD ALU L -> MD 

IB ORZO0-2- -0- - Q->R2 

MARK(O) 



399 6E 78 2C 60 30 #MARK 



39A 


41 DD 


8C 60 10 


3gB 


42 59 


8C 60 30 


390 


2D 60 


0C 60 12 


39D 


2E 78 


0C 60 30 


39E 


62 F9 


8C 70 02 


39F 


6E 63 


CC 60 FF 


3A0 


28 E4 


4C 60 28 


3A1 


6F E0 


24 68 04 


3A2 


6E E2 


2C 60 06 


3A3 


2E 62 


0C 60 28 


3A4 


0F E0 


0F E8 03 



IB OR ZA 8 S 1 



1 B« 


+ 


ZB 1 


L 


S 


1 B« 


+ 


ZA 1 


S 


s 


1 - 


OR 


ZQ 


- 


- 


1 - 


OR 


ZA 


S 


- 


1 B 


+ 


DA 


s 


s 


1 B 


OR 


ZA 


1 


L 


1 - 


+ 


AB 


2 


2 


1 B 


OR 


DZ 


- 


1 


1 B 


OR 


DA 


1 


1 


1 - 


OR 


ZA 


1 


- 


1 Q 


OR 


DZ 8 


- 


- 



R 10 



S JMP - 



MAR ALU 


S -> Rl -> MAR 


MD ALU 


L -> MD, S^l -> S 


MAR ALU 


S -> MAR, S+1 -> S 


MD PC 


PC -> MD 


MAR ALU 


S -> MAR 


1 2 


S * 2 -> S 


- - 


Rl -> L 


PC ALU 


R2 + R2 -> PC 


ALU IR 


IRtie -> Rl 


ALU IR* 


IR OR Rl -> Rl 


PC ALU 


Rl -> PC 


ALU IR4 


JMAP 



L 
2 Q 



4 3 2 10 



Informatik ETH Zuerich 
LABEL K DST FCT RS 



3A5 Dl 

3A6 64 

3A7 C0 

3A8 64 

3A9 C0 

3AA 64 

3AB C0 

3AC 64 

SAD C0 

3AE 64 

3AF C0 

3B0 64 

3B1 C0 

3B2 64 

3B3 C0 

3B4 64 

3B5 C0 

3BB 64 

3B7 C0 

3B8 64 

3B9 C0 

3BA 64 

3BB C0 

3BC 64 

3BD C0 

3BE 64 

3BF C0 

3C0 64 

3C1 C0 

3C2 64 

3C3 C0 

3C4 64 

3C5 3C 

3C6 C0 



E0 4C 
DE 4C 
FE 4C 
DE 4C 
FE 4C 
DE 4C 
FE 4C 
DE 4C 
FE 4C 
DE 4C 
FE 4C 
DE 4C 
FE 4C 
DE 4C 
FE 4C 
DE 4C 
FE 4C 
DE 4C 
FE 4C 
DE 4C 
FE 4C 
DE 4C 
FE 4C 
DE 4C 
FE 4C 
DE 4C 
FE 4C 
DE 4C 
FE 4C 
DE 4C 
FE 4C 
DE 4C 
82 07 
FE 8C 



60 FF 
60 FF 
60 5F 
60 FF 
60 5F 
60 FF 
60 5F 
60 FF 
60 5F 
60 FF 
60 5F 
60 FF 
60 5F 
60 FF 
60 5F 
60 FF 
60 5F 
60 FF 
60 5F 
60 FF 
60 5F 
60 FF 
60 5F 
60 FF 
60 5F 
60 FF 
60 5F 
60 FF 
60 5F 
60 FF 
60 5F 
60 FF 
20 0F 
60 5F 



#DIVIDE 



DIV T 

1 BQL & 



#DIVIDE^-1 1 B 



BQL 
B 



1 BQL 
1 B 
1 BQL 
1 B 
1 BQL 
1 B 
1 BQL 
1 B 
1 BQL 



1 B 



BQL 

B 

BQL 



1 B 



BQL 

B 

BQL 

B 

BQL 

B 

BQL 

B 

BQL 

B 

BQL 

B 

BQL 

B 



#DIV1 

1 BQL + 



3C7 60 FE 49 60 FF 

3C8 C0 FE 89 60 5F 



#DIV1 



B 

BQL 



-> 0, 

ZB 
AB 1 
AB 
AB 1 
AB 
AB 1 
AB 
AB 1 
AB 
AB 1 
AB 
AB 1 
AB 
AB 1 
AB 
AB 1 
AB 
AB 1 
AB 
AB 1 
AB 
AB 1 
AB 
AB 1 
AB 
AB 1 
AB 
AB 1 
AB 
AB 1 
AB 
AB 1 
C 
AB 

AB 
AB 



MOD T 
- 2 



-> R2 



T 4 - - 



ode- 


-Ass£ 


>mb1er ' 


MIA' 
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PC 


S E 


BD BS 


COMMENT 


USED REGS 


_ 


- 


_ 


[0,Q].2 -> [R2,g] 


2 Q 


- 


- 


- 


R2-T -> R2 


2 T 


- 


- 


MDS - 


DIV STEP 


2 T Q 


- 


- 


- 


R2-T -> R2 


2 T 


- 


- 


MDS - 


DIV STEP 


2 T Q 


- 


- 


- 


R2-T -> R2 


2 T 


- 


- 


MDS - 


DIV STEP 


2 T Q 


- 


- 


- 


R2-T -> R2 


2 T 


- 


- MDS - 


DIV STEP 


2 T Q 


- 


- 


_ 


R2-T -> R2 


2 T 


- 


- 


MDS - 


DIV STEP 


2 T 


- 


- 


- 


R2-T -> R2 


2 T 


- 


- 


MDS - 


DIV STEP 


2 T Q 


- 


- 


- 


R2-T -> R2 


2 T 


- 


.- 


MDS - 


DIV STEP 


2 T Q 


- 


- 


- 


R2-T -> R2 


2 T 


- 


- 


MDS - 


DIV STEP 


2 T Q 


- 


- 


- 


R2-T -> R2 


2 T 


- 


- 


MDS - 


DIV STEP 


2 T Q 


- 


- 


- 


R2-T -> R2 


2 T 


- 


- 


MDS - 


DIV STEP 


2 T Q 


- 


- 


- 


R2-T -> R2 


2 T 


- 


- 


MDS - 


DIV STEP 


2 T Q 


- 


- 


_ 


R2-T -> R2 


2 T 


- 


- 


MDS - 


DIV STEP 


2 T Q 


- 


- 


- 


R2-T -> R2 


2 T 


- 


- 


MDS - 


DIV STEP 


2 T Q 


- 


- 


- 


R2-T -> R2 


2 T 


- 


- B 


MDS - 


DIV STEP 


2 T Q 


- 


- 


- 


R2-T -> R2 


2 T 


- 


- 


MDS - 


DIV STEP 


2 T Q 


- 


- 


- 


R2-T -> R2 


2 T 


JMP 






GOTO DIVl IF C 




„ 


- 


MDS - 


DIV STEP 'WITHOUT 
CHANGING R2" 


4 T Q 


RTN 


- 


_ 


T + R2 -> R2, RTN 


2 T 


RTN 


- 8 


MDS - 


DIV STEP !R2 UNCHANGED" 4 T Q 



309 


71 E0 


4C 


60 FF 


3CA 


80 FE 


4C 


60 5F 


3CB 


80 FE 


4C 


68 5F 


3CC 


80 FE 


4C 


60 5F 


3CD 


80 FE 


4C 


60 5F 


3CE 


80 FE 


4C 


60 5F 


3CF 


80 FE 


4C 


60 5F 


3D0 


80 FE 


4C 


60 5F 


3D1 


80 FE 


4C 


60 5F 


3D2 


80 FE 


4C 


60 5F 


3D3 


80 FE 


4C 


60 5F 


3D4 


80 FE 


4C 


60 5F 


3D5 


80 FE 


4C 


60 5F 


306 


80 FE 


4C 


60 5F 


307 


80 FE 


4C 


60 5F 


3D8 


80 FE 


4C 


60 5F 


3D9 


80 FE 


49 


60 5F 



#MUL16 



Q « T -> 
B S 

BQR + 
BQR * 
BQR * 
BQR + 
BQR + 
BQR + 
BQR + 
BQR + 
BQR + 
BQR + 
BQR + 
BQR + 
BQR + 
BQR + 
BQR + 
BQR + 



[R2,Q3 

ZB 

AB 

AB 

AB 

AB 

AB 

AB 

AB 

AB 

AB 

AB 8 

AB 8 

AB 

AB 8 

AB 

AB 

AB 8 



(N STEPS) 



RTN - 



- - 


8 -> R2 


MDS - 


MUL STEP 


MDS - 


MUL STEP 


MDS - 


MUL STEP 


MDS - 


MUL STEP 


MDS - 


MUL STEP 


MDS - 


MUL STEP 


MDS - 


MUL STEP 


MDS - 


MUL STEP 


MDS - 


MUL STEP 


MDS - 


MUL STEP 


MDS - 


MUL STEP 


MDS - 


MUL STEP 


MDS - 


HUL STEP 


MDS - 


MUL STEP 


MDS - 


MUL STEP 


MDS - 


MUL STEP 



Informatik ETH Zuerich 



3E9 
3EA 
3EB 
3EC 
3ED 
SEE 



4 3 2 10 LABEL 



K DST FCT RS C A B 



3DA 6F 

3DB 3E 

3DC 6F 

3DD 3E 

3DE 6F 

3DF 3E 

3E8 6F 

3E1 3E 

3E2 6F 

3E3 3E 

3E4 BF 

3E5 3E 

3E6 6F 

3E7 3E 

3E8 6F 



E8 0C 
F8 07 
E0 0C 
F8 07 
E0 0C 
F8 07 
E0 0C 
F8 07 
E0 0C 
F8 07 
E0 0C 
F8 07 
E0 0C 
98 07 
E0 0C 



70 01 
20 0F 
70 02 
20 0F 
70 03 
20 0F 
70 04 
20 0F 
70 05 
20 0F 
70 06 
20 0F 
70 07 
20 0F 
70 88 



6F E0 AC 70 87 
20 EB 4C 60 30 
2A 40 0C 60 40 
6F E0 B4 60 81 
60 00 41 20 8F 
00 08 00 28 BF 



TRAP(l) 
TRAP(2) 
TRAP(3) 
TRAP(4) 
TRAP (5) 
TRAP (6) 
TRAP(7) 
TRAP (18) 

TRAP(N) 



IB OR DZ 
TRAP(R0) T 
IB OR DZ 
TRAP(R8) T 
IB OR DZ 
TRAP(R0) T 
IB OR DZ 
TRAP(R0) T 
IB OR DZ 
TRAP(R0) T 
IB OR DZ 
TRAP(R0) T 
IB OR DZ 
8 TRAP(N) T 
IB OR DZ 8 
8 TRAP(N) T 

MASKABLE TRAPS; 



B OR 



B OR 







DZ 8 
AB 
ZA 1 
DZ 8 
F 
T 



Micro-Code-Assembler 'MIA' 
SHFT SP PC S E BD BS COMMENT 
- 1 1 



- 



- JMP 

- JMP 

- JMP 

- JMP 

- JKP 

- JMP 

- JMP 

- JMP 



- 5 - 
5 P - 
8 - - 

- 5 RR 



1 2 
1 3 
1 4 
1 5 
1 6 
1 7 
1 10 



1 7 

8 MAR ALU 
B SR ALU 
B ALU MD 



- RTN 

- POP 



1 -> R0 
TRAP(R0 

2 -> R0 
TRAP(R0 

3 -> R0 
TRAP(R0 

4 -> R0 
TRAP(R8 

5 -> R0 
TRAP(R0 
5 -> R0 
TRAP(R0 
7 -> R0 
TRAP(N) 
10 -> R0 
TRAP(N) 



7 -> R5 ITRAP MSK" 
R5 -^ P -> MAR 
-R0 -> SR 
(MDtSR) -> R5 
RTN IF N IN R5 
ADJUST 2gH-STACK 
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USED REGS 



8 
8 

8 




5 

5 P 


5 



NOT MASKABLE TRAPS: 



3EF 2E 60 0C 60 10 
3F0 6F E0 2C 78 86 
3F1 20 E3 4C 68 30 



3F2 
3F3 
3F4 
3F5 
3F6 
3F7 
3F8 



6F E0 
2E 64 
6F E0 
6F E0 
32 E6 
42 41 
3F 88 



4C 70 03 
0C 60 30 
2C 70 07 
64 78 01 
8C 68 81 
87 2B BF 
87 20 0F 



TRAP(R8) 1 - 
1 B 
1 - 

1 B 

1 - 

1 B 

1 B 

1 - 



OR 
OR 



OR 
OR 
OR 
OR 
& 



ZA 8 8 - 
DZ - 1 
AB 1 P 



DZ 8 
ZA 8 
DZ 8 
DZ 8 
DA 8 



#LOOP 



INTERRUPT 
#LOOP 



R 10 - - 



MD ALU 

1 6 

B MAR ALU 

1 3 

MAR ALU 

1 7 
1 1 

ALU MD 



JMP 
JMP 



R8 
6 - 

Rl 



-> MO ITRAP NR" 
> Rl 

+ P -> MAR 



3 -> R2 

R2 -> MAR 

7 -> Rl 

(ltl0) -> R3 

MD & R3 

IF NOT 7 IN M[3] 

LOOP END 



EXTENSION TO THE SYS INSTRUCTION: 



3F9 66 60 0C 60 FF 
3FA 40 09 07 20 0F 
3FB 4F FF E4 78 00 



3FC 6E FF EC 70 01 
3FD 0F E0 0F E0 83 



>4 IB -+ZA880- 

ILL.INSTR -Z - JMP 
IB* OR DZ 8 T T R 10 - - 

VERSION CODE OF 13.2: 1 

IB ORDA0TT- 

1 Q OR DZ - - - - S JMP 



R0 - 1 -> R8 

IF IR05 

T -> STK, (8tl0) -> T 



11 1 OR T -> T 
ALU IR4 JMAP 



InforrJiatik ETH Zuerich Micro-Code-Assembler 'MIA' 

4 3 2 10 LABEL K DST FCT RS C A B SHFT SP PC S E BD BS COMMENT 

.ORG 2800 

ILLEGAL INSTRUCTIONS; 
.MAP 214,215 
.MAP 21,334 



490 3D A8 07 26 BF ILL.INSTR 8 TRAP(l) T 



- JMP 
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USED REGS 



TRAP(l) 















.MAP 212 
































401 


0F 


E0 


0C 


40 


FF 


DMUL 




1 


OR 


DZ 





- 


- - 


— 


- 


S 





POP 


- 


STK -> Q 







402 


3C 


98 


03 


2B 


BF 






#MUL16 




T 






~ 


JSR 










T « -> [R2,Q] 






403 


4D 


65 


EC 


40 


0F 






1 B» 


OR 


ZQ 


2 


T - 


_ .. 


- 


S 





PSH 


- 


-> T, R2 -> STK 


2 T 


Q 


404 


0F 


E0 


BF 


E0 


03 


.MAP 


213 


1 


OR 


DZ 









- S 


JMP 







ALU 


IR4 


JMAP 







405 


2E 


7E 


0C 


60 


FF 


DDIV 




1^ _ 


OR 


ZA 





T 


- - 


— 


- 


- 





- 


- 


T 


T 




406 


3E 


61 


03 


20 


0F 






B TRAP(7) 




Z 






- 


JSR 










IF ZERODIVIDE 






407 


0F 


E0 


0C 


40 


FF 






1 


OR 


DZ 





- 


- - 


— 


- 


s 





POP 


- 


STK -> Q 


Q 




408 


CF 


E0 


4C 


40 


FF 






1 BQL 


OR 


DZ 





- 


2 - 


- - 


- 


s 





POP 


- 


[STK,Q1*2 -> rR2,Q] 


2 




409 


3A 


68 


03 


20 


BF 






#OIVIDE 


+ 1 




T 




- 


JSR 










[STK.Q] DIV T -> [R2,T] 






40A 


4D 


65 


EC 


48 


0F 






1 B« 


OR 


ZO 


2 


T - 


- - 


- 


s 





PSH 


- 


-> T, R2 -> STK 


2 T 


Q 


40B 


0F 


E0 


BF 


E0 


B3 






1 


OR 


DZ 





- 


- - 


- s 


JMP 


- 


8 


ALU 


IR4 


JMAP 


Q 
















■MAP 216 
































400 


6F 


E0 


4C 


40 


FF 


DSHL 




1 B 


OR 


DZ 





- 


2 - 


— 


- 


s 





POP 


- 


STK -> R2 


2 




48D 


60 


FF 


EC 


60 


FF 






1 B 


+ 


AB 





T 


T - 


— 


- 


- 





- 


- 


T + T -> T 


T 




40E 


20 


84 


4C 


40 


0F 






1 - 


+ 


AB 


C 


2 


2 - 


— 


- 


s 





PSH 


- 


R2 + R2 * C -> STK 


2 




40F 


0F 


E0 


0F 


E0 


03 


.MAP 


217 


1 


OR 


DZ 









- s 


JMP 







ALU 


IR4 


JMAP 


Q 




410 


6F 


E0 


4C 


40 


FF 


DSHR 




1 8 


OR 


DZ 





- 


2 - 


— 


- 


s 





POP 


- 


STK -> R2 


2 




411 


0E 


7E 


0C 


60 


FF 






1 


OR 


ZA 





T 


- - 


— 


- 


- 





- 


- 


T -> Q 


T Q 




412 


82 


64 


4C 


60 


FF 






1 BQR 


+ 


ZA 





2 


2 - 


- - 


- 


- 





- 


- 


[R2,Q] DIV 2 -> [R2,Q] 


2 




413 


4D 


65 


EC 


40 


0F 






1 B« 


OR 


ZQ 





2 


T - 


- - 


- 


s 





PSH 


- 


-> T, R2 -> STK 


2 T 


U 


414 


0F 


E0 


BF 


E0 


03 






1 


OR 


DZ 


e 


- 


- - 


- s 


JNP 


- 





ALU 


IR4 


JMAP 


Q 

















'^m 
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4 


3 


2 


1 





LABEL 


K DST FCT RS C A 


B 


SHFT SP PC S E 


BD BS 


COMMENT 


USED REGS ; 


415 


6F 


E0 


2C 


70 


8F 


#LINE15 


1 


B OR DZ - 




_ 


_ _ - -I 


17 


17 -> Rl 




416 


42 


48 


07 


20 


0F 







INTERRUPT T 






- JMP 




GOTO INTERRUPT 




417 


6F 


E0 


2C 


70 


0E 


#LINE14 


1 


B OR DZ - 




_ 


- - - "1 


IB 


16 -> Rl 




418 


42 


48 


07 


28 0F 







INTERRUPT T 






- JMP 




GOTO INTERRUPT 




419 


6F 


E0 


2C 


70 


8D 


#DISK 


1 


B OR DZ 8 - 




_ 


- - - - 1 


15 


15 -> Rl 




41A 


42 


48 07 


20 0F 




8 


INTERRUPT T 






- JMP 




GOTO INTERRUPT 




41B 


6F 


E0 


2C 


78 


8C 


#CLOCK 


1 


B OR DZ - 




_ 


_ _ _ _ ]^ 


14 


14 -> Rl 




41C 


42 


48 


07 


28 


8F 




8 


INTERRUPT T 






- JMP 




GOTO INTERRUPT 




41D 


6F 


E8 


2C 


70 


0B 


#LINE11 


1 


B OR DZ - 




« 


- - - - 1 


13 


13 -> Rl 




41E 


42 


48 


07 


20 


0F 







INTERRUPT T 






- JMP 




GOTO INTERRUPT 




41F 


6F 


E0 


2C 


70 


0A 


#LINE18 


1 


B OR DZ - 




_ 


_ _ ,. - ^ 


12 


12 -> Rl 




420 


42 


48 


07 


28 


8F 







INTERRUPT T 






- JMP 




GOTO INTERRUPT 




421 


6F 


E0 


2C 


70 


09 


#LINE9 


1 


B OR DZ - 




- 


_ _ _ _ J 


11 


11 -> Rl 




422 


42 


48 


07 20 


0F 







INTERRUPT T 






- JMP 




GOTO INTERRUPT 




423 


6F 


E0 


2C 


70 


88 


#LINE8 
$ 


1 



B OR DZ 8 - 

INTERRUPT T 




- 


- JMP 


18 


10 -> Rl 

GOTO INTERRUPT 





4 3 2 10 



Informatik ETH Zuerich 
LABEL K DST FCT RS C 



424 


60 


E2 


2C 


60 FF 


INTERRUPT 


IB * AB 8 


1 


1 


425 


62 


42 


4C 


60 FF 




IB + ZA 1 


1 


2 


426 


6F 


E0 


6C 


70 01 




IB OR DZ 

TRANSFER T 


" 


3 


427 


2E 


62 


0C 


60 38 


TRANSFER 


1 - OR ZA 


1 


_ 


428 


6F 


E0 


2C 


60 01 




IB OR DZ 


- 


1 


429 


42 


F8 


03 


20 0F 




#SAVEREGS 


T 




42A 


2E 


74 


0C 


60 10 




1 - OR ZA 


P 


- 


42B 


2E 


64 


0C 


60 30 




1 - OR ZA 


2 


- 


42C 


6E 


63 


4C 


60 FF 




IB OR ZA 8 


1 


P 


42D 


43 


EB 


03 


20 0F 




#RESTREGS 


T 




42E 


8F 


E0 


0F 


E0 03 




10 OR DZ 


- 


- 



-Code- 


Assembi 


3r 'M 


lA' 
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SP PC 


S E BO 


BS 


COMMENT 






USED REGS 


- - 


- - 


- 


Rl + Rl -> 


Rl 




1 


— 


- - 


- 


Rl + 1 -> 


R2 




1 2 


— 


- 1 1 




1 -> R3 






3 


- 3VP 






TRANSFER(TRUE,R1 


R2) 




- - 


- MAR 


ALU 


Rl -> HAR 






1 


- - 


- ALU 


MD 


MD -> Rl 






1 


- JSR 






SAVE 








— 


- MD 


ALU 


P -> MD 






P 


— 


- MAR 


ALU 


R2 -> MAR 






2 


_ _ 


- - 


- 


Rl -> P 






1 P 


- JSR 






RESTORE 








S JMP 


- ALU 


IR4 


JMAP 






Q 



42F 


45 


08 


03 20 0F 


430 


2E 


7A 


0C 60 10 


431 


42 


55 


4C 60 38 


432 


2E 


7C 


0C 60 18 


433 


42 


55 


4C 68 38 


434 


2D 


60 


eC 68 12 


435 


42 


55 


4C 60 30 


436 


2E 


72 


8C 68 18 


437 


42 


55 


4C 60 30 


438 


2E 


78 


8C 60 10 


439 


42 


55 


4C 68 30 


43A 


62 


F7 


60 78 18 


43B 


2E 


76 


00 60 10 


43C 


2E 


74 


00 68 30 


43D 


66 


D5 


49 70 05 



#SAVEREGS #SAVESTK 



JSR 



B* 



B« 



B* 
B 



OR 



OR 



OR 



OR 



OR 



OR 
OR 



ZA 8 
ZA 1 
ZA 
ZA 1 

zg 

ZA 1 
ZA 
ZA 1 
ZA 8 
ZA 1 
DA 8 
ZA 
ZA 8 
DA 1 



P - - - 



P - - - 



P - 



RTN - 





SA 


VE EXPR 


STACK 


MD ALU 


G 


-> MD 




8 MAR ALU 


P 


-> MAR, 


P+1 - 


8 MD ALU 


L 


-> MD 




8 MAR ALU 


P 


-> MAR, 


P-^1 - 


MD PC 


PC 


-> MD 




MAR ALU 


P 


-> MAR, 


P+1 - 


MD ALU 


M 


-> MD 




MAR ALU 


P 


-> MAR, 


P*l - 


MD ALU 


S 


-> MD 




MAR ALU 


P 


-> MAR, 


P+1 - 


1 30 


30 


+ H -> 


f^ 


MD ALU 


H 


-> MD 




MAR ALU 


P 


-> MAR 




1 5 


P 


- 5 -> 


P, RTN 



> p 



> P 



> P 



> p 



4 3 2 18 



43E 


42 55 


4C 68 30 


43F 


6F El 


AC 60 01 


440 


2E 7A 


0C 60 30 


441 


2D 63 


0C 60 El 


442 


42 55 


4C 60 30 


443 


6F El 


CC 60 01 


444 


42 55 


4C 60 30 


445 


2D 60 


0C 60 21 


446 


2E 66 


0C 60 FF 


447 


44 El 


07 20 0F 


448 


2E 74 


8C 60 30 


449 


6F E0 


2C 70 03 


44A 


6F El 


2C 60 01 


44B 


2E 62 0C 60 30 


44C 


6F E0 


2C 60 01 


440 


2C E3 


2C 60 88 



Informatik ETH Zuerich 

LABEL 

#RESTREGS 



DST FCT 


RS C 


A 


B 


SHFT SP 


B. + 


ZA 1 


P 


P 


_ _ _ 


B OR 


DZ 


- 


G 


_ _ - - 


- OR 


ZA 


G 


- 


_ 


- OR 


ZQ 


- 


- 


. _ — 


B« * 


ZA 1 


P 


P 


- - — 


B OR 


DZ 


- 


L 


_ 


B» + 


ZA 1 


P 


P 


_ - - _ 


- OR 


ZQ 


- 


- 


- . — 


- OR 


ZA 


3 


- 


_ _ — 


#REST 


Z 






- J 



Micro-Code-Assembler 'MIA' 

E BD BS COMMENT 



- MAR ALU P -> MAR, P + 1 -> P 

- ALU MD MD -> G 

- MAR ALU G -> MAR 

- F MD MD -> F 

- MAR ALU P -> MAR, P + 1 -> P 

- ALU MD MD -> L 

- MAR ALU P -> MAR, P + 1 -> P 

- PC MD MD -> PC 

- - - R3 

GOTO REST IF R3=-0 
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USED REGS 

P 
G 
G 

Q 

P 
L 
P 

3 



- OR ZA P - 
B OR DZ - 1 
B OR DZ - M 

- OR ZA 1 - 
B OR DZ - 1 

- OR AB 1 M 



MAR ALU 

1 3 

ALU MD 
MAR ALU 
ALU MD 
INN ALU 



P -> MAR 

3 -> Rl 

MD -> M 

Rl -> MAR 

MD -> Rl 

Rl OR M -> INM 



44E 


62 


55 4C 


60 38 


#REST 


1 


B + 


ZA 1 


P 


P - 


- — 


- 


MAR 


ALU 


P + 1 -> P -> MAR 


P 


44F 


6F 


El 8C 


60 01 




1 


B OR 


DZ 


- 


S - 


- — 


- 


ALU 


MO 


MD -> S 


S 


450 


22 


54 0C 


60 38 




1 


+ 


ZA 1 


P 


- - 


— - 


- 


MAR 


ALU 


P + 1 -> MAR 


P 


451 


66 


D5 4C 


70 04 




1 


B -■>■ 


DA 1 


P 


P - 


- - - 


- 1 


4 




P - 4 -> P 


P 


452 


6F 


El 6C 


60 01 




1 


B OR 


DZ 


- 


H - 


- - - 


- 


ALU 


MD 


MD -> H 


H 


453 


66 


D7 6C 70 18 




1 


B -■>■ 


DA 1 


H 


H - 


- — 


- 1 


30 




H - 30 -> H 


H 















#RESTRSTK T 






- JMP 








RESTORE EXPR STACK 




454 


66 


79 80 


60 30 


#RESTRSTK 


1 


B -+ 


ZA 


S 


S - 


... 


- 


MAR 


ALU 


S-1 -> S -> MAR 


S 


455 


6F 


E0 0C 


60 01 




1 


B OR 


DZ 


- 


8 - 





. 


ALU 


MD 


MD -> R0 


8 


456 


00 


01 01 


20 0F 










Z 






- RTN 








IF =0 




457 


66 


79 8C 


60 30 


#RSTK 


1 


B -4- 


ZA 


S 


S - 


... 


- 


MAR 


ALU 


S-1 -> S -> MAR 


S 


458 


4F 


FF EC 


40 01 




1 B. OR 


DZ 


T 


T - 





S 


ALU 


MD 


T -> STK, MD -> T 


T 


459 


66 


60 0C 


60 FF 




1 


B -+ 


ZA 





- 


— . 


- 


- 


- 


R0-1 -> R0 





45A 


45 


79 07 


20 0F 







#RSTK 


-Z 






- JMP 








IF R8 > 




45B 


00 


08 01 


20 0F 










T 






- RTN 








RETURN 




45C 


6F 


E0 0C 


70 00 


#SAVESTK 


1 


B OR 


DZ 


_ 


- 


_ _ _ 


- 1 







-> R0 





45D 


46 


20 0F 


20 0F 







#SAVED 


E 






- JMP 








IF STK EMPTY 




45E 


4F 


FF EC 


40 10 


#SSTK 


1 


B« OR 


DZ 


T 


T - 


... 


S 


MD 


ALU 


T -> MD, STK -> T 


T 


45F 


42 


59 8C 


60 30 


,. 


1 


B» + 


ZA 1 


S 


S - 


_ — 


- 


MAR 


ALU 


S -> MAR, S+1 -> S 


S 


460 


62 


48 0C 


60 FF 




IB + 


ZA 1 


8 


- 


_ — 


- 8 


- 


- 


RB + 1 -> R0 





461 


45 


E8 0F 


20 0F 







#SSTK 


-E 






- JMP 








IF NOT STK EMPTY 




462 


2E 


60 0C 


68 10 


#SAVED 


1 


- OR 


ZA 


8 


_ 


_ _ „ 


- 8 


MD 


ALU 


R8 -> MD 





463 


42 


59 89 


60 30 


$ 


1 


B« + 


ZA 1 


S 


S - 


- - RTN 


- 


MAR 


ALU 


S -> MAR, S+1 -> S 


S 



464 
465 
466 
467 
468 
469 



4 3 2 1 



2E 6A 0C 60 68 
2D 60 0C E0 F7 
2D 60 0C E0 F7 
6F E0 CC E0 07 
2D 60 BC E8 F7 
2D 50 09 E0 F7 



Informatik ETH Zuerich Micro-Code-Assembler 'MIA' 
LABEL K DST FCT RS C A B SHFT SP PC S E BD BS COMMENT 
. DISK INPUT/OUTPUT 



#GE7 



1 - 
1 - 
1 - 
1 B 
1 - 
1 - 



OR 
OR 
OR 
OR 
OR 
OR 



ZA 
ZQ 
ZQ 
DZ 
ZQ 
ZQ 



lOA ALU R5 -> lO-ADDRESS 







6 - 



- S - 

- s - 

- s - 

- S RTN 



lOD 
- lOD 
ALU lOD 
- lOD 
- lOD 



lO-DATA 
lO-DATA 
lO-DATA 



DUMMY 
DUMMY 
R6 



lO-DATA -> DUMMY 
lO-DATA -> DUMMY, 



RTN 
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USED REGS 



46A 
46B 
46C 
46D 
45E 
46F 



2E 6A 0C 60 60 
2E 6C 0C E0 73 
2E 6C 0C E0 
2E 6C 00 E0 
2E 6C 0C E0 7B 
2E 6C 09 E0 70 



#PUT 



70 
70 



OR ZA 

OR ZA 

OR ZA 

OR ZA 

OR ZA 

OR ZA 



lOA ALU R5 -> lO-ADDRESS 



S - - lOD ALU R6 

S - - lOD ALU Ro 

S - - lOD ALU R6 

S - - lOD ALU RO 

S RTN - lOD ALU R6 



lO-DATA 
lO-DATA 
lO-DATA 



-> lO-DATA 

-> lO-DATA, RTN 



470 
471 
472 
473 
474 



6F E0 AC 70 09 

2E 6A 0C 68 60 

72 E6 CC 60 07 

08 09 01 20 0F 

47 28 07 20 0F 



#yAIT 
#W 



1 B 
1 - 
1 B 

#V 



OR 
OR 



DZ 8 - 
ZA 5 
DA 3 

-Z 

T 



RTN 
JMP 



1 11 11 -> R5 5 

IDA ALU R5 -> lO-ADDRESS 5 
8 ALU lOD lO-DATA S R3 -> R6 3 6 

RTN IF R3 IN lO-DATA 

GOTO W 



475 6F E0 AC 70 09 #RESETDSK 1 B OR DZ - 5 - - 1 11 11 -> R5 5 

476 6F E0 CC 70 06 1 B OR DZ - 6 - 1 6 6 -> R6 6 

477 46 A8 83 28 0F #PUT T - JSR PUT(DISK,FAULTRESET) 

478 6F E0 CC 70 07 1 B OR DZ - 6 - 1 7 7 -> R6 6 

479 46 A8 03 20 0F ERRESET #PUT T - JSR PUT(DISK,R6) 

47A 6F E0 6C 70 80 IB OR DZ - 3 - 1 200 200 -> R3 3 

47B 47 08 07 20 0F #WAIT T - JMP WAIT(RDYSRy) 



47C 6F E0 AC 70 09 
47D 6F E0 CC 70 05 
47 E 46 A8 07 20 0F 



#CLRADDR IB OR DZ - 5 
IB OR DZ - 6 
#PUT T 



- - - 1 11 11 -> R5 

- - - 1 5 5 -> R6 

- JMP PUT(STATUS,CLR) 



4 3 2 18 



47F 


47 C8 83 28 8F 


488 


6F E8 2C 70 03 


481 


6F E8 AC 70 08 


482 


72 6C CC 60 FF 


483 


46 A8 03 28 8F 


484 


66 62 2C 68 FF 


485 


48 39 07 20 0F 


486 


6F E8 CC 70 A6 


487 


4E EC C4 68 00 


488 


46 A8 07 20 BF 



Informatik ETH Zuerich 
LABEL K DST FCT RS C 

#INITWRIT #CLRADDR T 

IB OR DZ 8 

IB OR DZ 8 

IB & ZA 8 

#IW 8 #PUT T 

IB -- ZA 
#IW -Z 



IB OR DZ - 
1 B» OR DA 6 
#PUT T 



Micro-Code-Assembler 'MIA' 
B SHFT SP PC S E BD BS COMMENT 
- JSR 



- JSR 



- 1 3 

- 1 10 

- - 

- - 



JMP 



CLRADDR 
3 -> Rl 
13 -> R5 
-> RQ 
PUT(DISK,0) 
Rl - 1 -> Rl 
IF > 



- 1 246 A6H -> R6 

R 10 - - - ALU ALU R6tl0 OR R6 -> R6 
- JMP PUT(DISK,SYNC) 
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USED REGS 



489 
48A 
48B 
48C 
480 
48E 
48F 



6F E8 
46 48 
32 EC 
48 Al 
6F E0 
46 48 
72 EC 



AC 70 01 
83 20 BF 
8C 78 81 
87 20 0F 
AC 70 02 
03 20 0F 
C9 70 FF 



#READCH 
#RCH 



1 B OR 

#GET 

1 - & 

#RCH 

1 B OR 
8 #GET 

1 B 8 



DZ 
T 

DA 
Z 

DZ 
T 

DA 8 



5 - 



6 6 - - 



- - 1 1 1 -> R5 5 
JSR GET(KBSTATUS,R6) 

- - 1 1 R6 S 1 6 
JMP IF NOT 15 IN R6 

- - 1 2 2 -> R5 5 
JSR GET(KBDATA,R6) 

RTN - 1 377 R6 & 377 -> R6, RTN 6 



490 
491 
492 
493 
494 



72 F4 6C 76 00 
76 F4 8C 76 00 
4F E8 84 61 00 
49 58 47 20 0F 
7A E8 84 77 41 



495 5C E6 8C 60 FF 

496 6F E0 6C 70 04 

497 47 08 03 20 0F 



498 


6F 


E0 


AC 


70 


0A 


499 


4F 


E8 


C4 


68 


00 


49A 


46 


A8 


03 


20 


0F 


49B 


62 


4A 


AC 


60 


FF 


49C 


6E 


68 


CC 


60 


FF 


490 


45 


A8 


07 


20 


8F 



#SETTRACK 1 B & 
1 B -& 
1 B« OR 
#SETRK 



#SETRK 



DA 8 12 3 
DA 8 12 4 
DZ 4 4 
-F 



IB OR AB 8 3 
IB OR DZ 8 - 
#WAIT T 



IB OR 
1 B» OR 

#PUT 

1 B + 
IB OR 
#PUT 



DZ 
DZ 

T 
ZA 1 
ZA 

T 



IB XOR DA 4 4 R 7 



R 10 



JMP 



JSR 



JSR 



1 
1 

ALU ALU 

1 101 

- - 

1 4 



1 12 

ALU ALU 



MSK(0,6) 8 R12 -> R3 

~MSK(0,6) & R12 -> R4 

(R4t1) -> R4 

IF >= 

(101t7) XOR R4 -> R4 



R3 OR R4 -> 
4 -> R3 

WAIT(RDYSEEK) 



R4 



3 P 

4 P 
4 



3 4 
3 



- JMP 



12 -> R5 5 

(R4tl0) -> R6 4 6 
PUT(TRACKH,R4 DIV IBSH) 

R5 + 1 -> R5 5 

R4 -> R6 4 6 
PUT(TRACKL,R4 MOD 100H) 
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4 


3 


2 


1 





LABEL 


K DST FCT 


RS C 


A 


B SHFT SP PC 


S E 


BD BS 


COMMENT 


USED REGS 














, SECTOR(Q): Q=100 <=> 


PUT 


Q- 


208 <=> GET 








49E 


66 D3 


2C 


70 


2C 


#SECTOR 


IB -+ 


DA 1 


11 


11 - 


_ _ _ 


- 1 


54 


Rll - 54 -> Rll 


M 


49F 


4A 


71 


47 


20 


0F 




#SECT1 


FZ 






- JMP 






GOTO SECTl IF <= 8 




4A0 


26 


D2 


0C 


70 


03 




1 - -+ 


DA 1 


11 


- - 





- 1 


3 


Rll - 3 


M 


4A1 


4A 


89 


07 


20 


0F 




#SECT2 


-Z 






- JMP 






GOTO #SECT2 IF #0 




4A2 


67 


CI 


2C 


70 


2F 




IB -+ 


DZ 1 


- 


11 - 


- - - 


- 1 


57 


-47Z -> Rll 


M 


4A3 


62 


55 


4C 


60 


FF 




1 B + 


ZA 1 


12 


12 - 


- - - 


- 8 


- 


R12 * 1 -> R12 


P 


4A4 


49 


08 


03 


20 0F 




#SETTRACK T 






- JSR 






SETTRACK(R12) 




4A5 


6F 


E0 


6C 


70 


80 




1 B OR 


DZ 


- 


3 - 


- — 


- 1 


200 


203 -> R3 


3 


4A6 


47 


08 03 


20 0F 




#WAIT 


T 






- JSR 






WAIT(RDYSRW) 




4A7 


62 


F3 


2C 


70 


2F 


#SECT1 


1 B + 


DA 


11 


11 - 


_ _ _ 


- 1 


57 


Rll * 47 -> Rll 


M 


4A8 


68 


72 


CC 


60 


FF 


#SECT2 


IB + 


AQ 


11 


6 - 


— - 


- 


- 


Rll + Q -> R6 


6 M 


4A9 


6F 


E0 


AC 


70 


0C 


#SECT48 


1 B OR 


DZ 


- 


5 - 


- - - 


- 1 


14 


14 -> R5 


5 


4AA 


46 


A8 


03 


20 


0F 




#PUT 


T 






- JSR 






PUT(SECT0R,R6) 




4AB 


6F 


E0 


6C 


70 


41 




1 B OR 


DZ 


- 


3 - 


— - 


- 1 


101 


181 -> R3 


3 


4AC 


47 


08 


03 


20 


0F 




#WAIT 


T 






- JSR 






UAIT(XFERCOMPL OR 
BADSECTOR) 


















BAD SECTOR HANDLING: 












4AD 


32 


EC 


0C 


70 


01 




1 - & 


DA 


6 


- - 


- - - 


- 1 


1 


R6 & 1 


6 


4AE 


47 


CI 


07 


20 0F 




#CLRADDR Z 






- JMP 






GOTO CLRADDR IF Z 




4AF 


6F 


E0 


AC 


70 


09 




1 B OR 


DZ 


- 


5 - 


— - 


- 1 


11 


11 -> R5 


5 


4B0 


6F 


E8 CC 


70 


04 




1 B OR 


DZ 


- 


6 - 


_ - - 


- 1 


4 


4 -> R5 


6 


4B1 


47 


98 


03 


20 


0F 




ERRESET 


T 






- JSR 






ERRESET 




4B2 


63 


60 


CC 


70 


30 




IB + 


DQ 


- 


6 - 





- 1 


60 


48Z + Q -> R6 


6 Q 


4B3 


4A 


98 


07 


20 


0F 




#SECT48 


T 






- JMP 






GOTO SECT48 




4B4 


62 


51 


0C 


60 


FF 


#GETWORD 


IB + 


ZA 1 


10 


10 - 


_ _ _ 


- 


_ 


R10 + 1 -> R10 


8 


4B5 


72 


Fl 


0C 


70 


7F 




1 B & 


DA 


10 


18 - 


— . 


- 1 


177 


R10 8 177 -> R10 


8 


4B6 


49 


El 


03 


20 


0F 




#SECTOR 


Z 






- JSR 






SECTOR(GFT) IF =0 




4B7 


6F 


E0 


AC 


70 


08 




1 B OR 


DZ 


- 


5 - 





- 1 


10 


10 -> R5 


5 


4B8 


45 


48 


03 


20 


0F 




#GET 


T 






- JSR 






GET(DISK,R6) 




4B9 


6E 


6C 


E9 


60 


FF 




1 B OR 


ZA 


6 


7 - 


- - RTN 


- 


_ _ 


R6 -> R7, RTN 


6 7 


4BA 


72 


71 


0C 


60 


FF 


DUMP 


1 B & 


ZA 


10 


10 - 


_._ 


- 


. . 


-> R10 


8 


4BB 


6F 


El 


2C 


70 


2F 




1 B OR 


DZ 


- 


11 - 





- 1 


57 


57 -> Rll 


M 


4BC 


6F 


El 


4C 


70 


03 




1 B OR 


DZ 


- 


12 - 





- 1 3 


3 -> R12 


P 


4BD 


6F 


E0 


4C 


70 


00 




IB OR 


DZ 


- 


2 - 





- 1 





-> R2 


2 


4BE 


0F 


E0 


0C 


70 


40 




1 Q OR 


DZ 


- 


- - 





- 1 


108 


100 -> Q 





4BF 


6F 


E0 


0C 


70 


00 


■- 


1 B OR 


DZ 


- 


- 


— - 


- 1 





-> R0 





4C0 


2E 


60 


0C 


60 


D0 


DUMPWORD 


1 - OR 


ZA 


8 


_ 


_ _ _ 


- 


BNK ALU 


R3 -> BNK 


8 


4C1 


2E 


64 


0C 


60 


30 




1 - OR 


ZA 


2 


- - 


— - 


- 


MAR ALU 


R2 -> MAR 


2 


4C2 


2E 


70 


0C 


60 


FF 


#PUTyORD 


1 - OR 


ZA 


10 


_ 


_ _ _ 


- 


™ 


R18 


8 


4C3 


47 


Fl 


03 20 


0F 




#INITWRIT Z 






- JSR 






INITWRIT IF =0 




4C4 


BF 


E0 


AC 


70 


08 




IB OR 


DZ 


_ 


5 - 


- _ _ 


- 1 


10 


10 -> R5 


5 


4C5 


6F 


E0 


CC 


60 


01 




IB OR 


DZ 8 


- 


6 - 


— _ 


- 8 


ALU MD 


MD -> R6 


6 


4CS 


46 


A8 


03 


20 


0F 




#PUT 


T 






- JSR 






PUT(DISK,R6) 




4C7 


62 


51 


0C 


60 


FF 




1 B + 


ZA 1 


10 


10 - 


— . 


- 8 


. 


R10 * 1 -> R10 


8 


4C8 


72 Fl 8C 


70 


7F 




1 B & 


DA 


10 


18 - 


— . 


- 1 


177 


R10 & 111 -> R10 


8 


4C9 


49 


El 


03 


20 


0F 




#SECTOR 


Z 






- JSR 






SECTOR(PUT) IF =0 




4CA 


62 


44 


4C 60 FF 




1 B * 


ZA 1 


2 


2 - 


_ _ _ 


- 8 


_ 


R2 <■ 1 -> R2 


2 


4CB 


4C 


0A 


07 


20 


0F 




DUMPWORD -C 






- JMP 






IF R2 <= FFFF 




4CC 


62 


40 


0C 


60 


FF 




1 B + 


ZA 1 





8 - 


_ _ _ 


- 8 


„ 


R0 + 1 -> R0 


8 



Informatik ETH Zuerich Micro-Code-Assembler 'MIA' Page 43 

4 3 2 10 LABEL K DST FCT RS C A B SHFT SP PC S E BD BS COMMENT USED REGS 

4CD 26 C0 0C 70 02 1 - -+ DA 1 - - 1 2 R0-2 9 

4CE 4C 09 07 20 0F DUMPWORD -Z - JMP IF R0 <> 2 

4CF 00 08 01 20 0F 8 T - RTN RETURN 



4 3 2 1 



4D0 42 F8 03 20 0F 

4D1 6F E0 0C 70 05 

402 2E 74 8C 60 10 

4D3 2E 60 0C 60 30 



4D4 6F E0 AC 70 02 

4D5 46 48 03 20 0F 

4D6 47 58 03 20 0F 

407 48 98 03 20 0F 

408 2A CC 0C 70 04 

409 40 09 07 20 0F 

40A 4B A8 03 20 0F 



4DB 


47 


58 


03 


20 0F 


40C 


48 


98 


03 


20 0F 


400 


52 


7F 


EC 


40 0F 


40E 


26 


6C 


0C 


60 FF 


40F 


4E 


29 


07 


20 0F 


4E0 


6F 


El 


EC 


70 lA 


4E1 


4E 


A8 


07 


20 0F 


4E2 


26 


CC 


0C 


70 06 


4E3 


4E 


69 


07 


20 0F 


4E4 


6F 


El 


E4 


72 01 


4E5 


4E 


A8 


07 


2B 0F 


4E6 


26 


CC 


0C 


70 13 


4E7 


4E 


A9 


07 


20 0F 


4E8 


6F 


El 


E4 


72 01 


4E9 


62 


FF 


EC 


70 lA 


4EA 


6F 


El 


0C 


70 7F 


4EB 


6F 


El 


2C 


70 2F 


4EC 


66 


7F 


4C 


60 FF 


4ED 


6F 


El 


EC 


40 FF 


4EE 


0F 


E0 


0C 


70 88 


4EF 


4B 


48 


03 


20 0F 


4F0 


66 


6E 


0C 


60 FF 


4F1 


00 


10 


47 


20 0F 


4F2 


43 


48 


03 


20 0F 


4F3 


6E 


6E 


2C 


60 FF 


4F4 


4B 


48 


03 


28 0F 


4F5 


2E 


6E 


0C 60 18 


4F6 


42 


42 


2C 


60 30 


4F7 


56 


60 


0C 


60 FF 


4F8 


4F 


49 


07 


20 0F 


4F9 


4E 


F8 


07 


20 0F 



Informatik ETH Zuerich 

LABEL K DST FCT RS C 

. BOOTSTRAP SEQUENCE: 

START #SAVEREGS T 
IB OR OZ 
1 - OR ZA 



Hicro-Code- 
B SHFT SP PC 



Assembler 'MIA' 

S E BO BS COMMENT 



Rags 44 
USED REGS 



NODUMP 



BOOTl 



B00T2 



BOOT 



BLOCK 



DATA 



1 - OR ZA 8 - - - - 

CLEAR KEYBOARD DATA REGISTER 
IB OR DZ - 5 - - - 
#GET T 



- JSR SAVE REG'S IN CASE OF 

-0- -15 5->Ra RESET 

p - . - MD ALU P -> MD P 

- 8 MAR ALU R0 -> MAR 



IRESETDSK T 

#READCH T 

1 - - DA 1 6 - - 
NODUMP -Z 

DUMP T 

#RESETDSK T 

#READCH T 

1 B» & ZA T T - 
1 - -+ ZA 8 6 - - 
BOOTl -Z 
IB OR DZ - T - 

BOOT T 

1 - -+ DA 1 6 - - 
B00T2 -Z 
IB OR DZ - T R 

BOOT T 

1 - -* DA 1 6 - - 

BOOT -Z 
IB OR DZ - T 
IB * DA T T 

1 B 
1 B 
1 B 
1 B 
1 Q 



- - - 1 2 KBDATA -> R5 

- JSR GET (KBDATA, DUMMY) 

- JSR RESETDSK 

- JSR READCH(R6) 

- - - 1 4 R6 - 4 (CTRL D) 

- JMP IF R0 <> CTRL D 

- JSR DUMP 



#GETyORD T 
IB -+ ZA 
#RESTART F 
#GETWORD T 
IB OR ZA 

#GETyORD T 

1 - OR ZA 
1 B» + ZA 1 
IB -+ 
DATA 

BLOCK 



- JSR RESETDSK 

- JSR READCH(R6) 

S PSH - T -> STK, -> T T 

- - - R6 - 1 !CTRL A" 6 

- JHP IF R6 <> CTRL A 
- 1 32 32 -> T T 

- JMP B00T(32) 
- 1 6 Rl - 6 ICTRL F" 6 

- JMP IF R6 <> CTRL F 
2 - - - 1 1 48000B -> T T 

- JMP BOOT (40000) 
- 1 23 R6 - 23 ICTRL S" 6 

- JMP IF R6 <> CTRL S 
R 2 - - - 1 1 40032B -> T T 
- 1 32 BOOT(40B32) T 

■ - - 1 177 177 -> R10 8 

■ - - 1 57 57 -> Rll M 

■ - - - - T - 1 -> R12 P T 

■ - S POP - STK -> T T 
- - - 1 200 280 -> Q 

- JSR GETWORD(SIZE) 
70- -0-- R7-1->R8 07 

- JMP RTN IF < 

- JSR GETyORD(ADDR) 
7 1 - - - R7 -> Rl 17 

- JSR GETW0R0(R7) 

7 - - MO ALU R7 -> MD 7 

1 1 - - MAR ALU Rl -> MAR, Rl+1 -> Rl 1 

ZA - - - R0 - 1 -> R0 8 

-Z - JMP IF SIZE <> 

T - JMP GOTO BLOCK 



OR DZ 

OR DZ 

-+ ZA 

OR DZ 

OR DZ 



10 
11 
12 
T 
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• MODULE DISPLAYHANDLER; 

« EXPORT BBLT,REPL,DCH,DDT; 

« 

• (« PARAMETERS FOR THE BITHANDLING MACROINSTRUCTIONS ON THE EXPRESSION STACK: 



BBLT; 



DCH; 



I I 

+ + 

I SRCBMD I 

+ + 

I DESTBLD I 

I SRCBLD I 

I DESTBMD I 

I MODE I 



CH 



t REPL; I I 

I ===== + + t 

I I DESTBLD I I 

I + + I 

I I SOURCE I I 

I + * I 

I I BMD I I 



I t 

+ >■ I 

I DESTBLD I I 

+ + I 

I FONTADDR I I 

* + I 

I BMD I 



DDT: 



MODE 



I I 

+ + 

I V I 

+ „___.„ ,.4. 

I X I 



BMD I 
+ 

MODE I 



TYPE 
BMDESCR = RECORD 
ADDR, 

WIDTH, HEIGHT : CARDINAL; 
W0RD4 : PACKED RECORD 



INVERT 
WPRIM 
HPRIM 
END; 
END; 



BOOLEAN; 
[8.. 63]; 
[8.. 511]; 



BLOCKDESCR = RECORD 

X Y 

WIDTH, HEIGHT : CARDINAL; 
END; 



RECORD 



PATTERN 
COUNT 
DOTS 

END; 



FONT = RECORD 

HEIGHT 

CHAR 

PSEUDOCHAR 
END; 



CARDINAL; 

ARRAY [1.. COUNT] OF BITSET; 



CARDINAL; 

ARRAY [0..255] OF POINTER TO CHARACTER; (» SELF RELATIV «) 

ARRAY [256..MAXCHAR] OF POINTER TO CHARACTER; 



CHARACTER = RECORD 



Inforinatik ETH Zuen'ch Micro-Code-Assemb1er 'MIA' Page 46 

4 3 2 10 LABEL K DST FCT RS C A B SHFT SP PC S E BD BS COMMENT USED REGS 

DOTS ; ARRAY [1.. HEIGHT] OF BITSET; 
CASE EXTENDED OF 
FALSE ; WIDTH : CARDINAL; 

• TRUE I PSEUDOCHR : INTEGER; (* -INDEX TO THE ARRAY PSEUDOCHAR *) 

• END; 

SKIP, HEIGHT : 0.,255; 

• END; 

» 

• VAR 

« SRCBMD,DESTBMD, 

» BMD ; BMDESCR; 

« DESTBLD, SRCBLD ; BLOCKDESCR; 

. SOURCE : PATTERN; 

• FONTADDR : POINTER TO FONT; 



Infortnatik ETH Zuerich 



Micro-Code-Assembler 'MIA' 



4 3 2 10 LABEL 



K DST FCT RS C A B SHFT SP PC S E BD BS COMMENT 



PROCEDURE DDT; (» NW 7.89 



Page 47 
USED REGS 



4FA 6F E0 00 40 FF DDT 



IB OR DZ 



4FB 


6F 


E0 


2C 48 38 


4FC 


6F 


E0 


6C 60 01 


4FD 


72 


E6 


8C 70 03 


4FE 


76 


E6 


6C 70 03 


4FF 


62 


42 


2C 60 30 


580 


0F 


E0 0C 60 01 


501 


6D 


60 


4C 60 FF 


502 


4F 


E4 


44 6C 00 


583 


28 


C0 


4C 60 FF 


584 


3E 


02 


07 20 0F 


505 


22 


42 


0C 60 30 


506 


63 


C8 


2C 60 01 


507 


68 


C3 


EC 60 FF 


508 


22 


5E 


0C 60 FF 


589 


3E 


01 


47 20 0F 


50A 


3C 


98 


03 20 8F 


50B 


60 


66 


6C 60 FF 


50C 


4F 


E0 


24 64 00 


50D 


76 


E2 


2C 74 88 


50E 


2E 


68 


0C 60 D0 


58F 


60 


E2 


6C 60 30 



510 22 40 0C 60 40 

511 6F E0 4C 60 01 

512 6F E0 34 70 01 

513 6F E0 0C 40 FF 

514 26 C0 0C 70 02 

515 51 91 07 20 0F 

516 51 B0 27 20 0F 



B 
B 
B 
B 
B 

B 
B» 



OR 
OR 
8 



OR 
OR 
OR 



1 
1 
1 
1 
1 
1 
1 
1 
1 - - 

TRAP(4) 

1 - + 
1 B + 
1 B - 
1 - + 

TRAP(4) 

#MUL16 

B + 



OR 



OR 



DZ 
DZ 
DA 
DA 
ZA 1 
DZ 8 
ZQ 
DZ 8 
AB 1 
C 
1 
1 
1 
1 
FZ 
T 
AQ 8 
DZ 
DA 8 
ZA 8 
AB 8 



ZA 
DZ 
AB 
ZA 



1 - * ZA 1 

IB OR DZ 8 - 

IB OR DZ - 

IB OR DZ - 



1 - -+ DA 1 
8 #INV Z 
#SET S 



1 - 

- 1 

1 T 

T - 



R 14 - 



S POP - 

S e MAR ALU 

- ALU MD 

- 1 3 

- 1 3 

- MAR 

- ALU 

- - -- 

- ALU ALU 



STK -> RE 



!X" 



JMP 



JMP 
JSR 



RR 



- JMP 

- JMP 



ALU 
MD 



8 MAR ALU 
8 ALU MD 
8 - - 
- - 



ftLU 



- - 

- ALU 

- 1 

- BNK ALU 

- MAR ALU 

- B SR ALU 

- ALU MD 
-11 

S POP - 



1 2 



STK -> Rl -> MAR !BMD" 1 

MD -> R3 3 

3 & R3 -> R4 IBANK" 3 

~3 & R3 -> R3 !BMA" 3 

Rl+1 -> Rl -> MAR 1 

MD -> Q !W" Q 

-> R2 2 

(R2tl4) -> R2 2 

R0 - R2 
TRAP(4) IF 16*W<=R0 

Rl + 1 -> MAR 1 

MD+1 -> Rl m+1" 1 

Rl - T -> T IH+l-Y" 1 

T + 1 T 
TRAP(4) IF H<=Y 
Q « T -> [R2,Q] !..«W" 

+ R3 -> R3 !,,+BMA" 3 

R0t4 -> Rl !X DIV 16" 

~MSK(0,4) S Rl -> Rl 1 

R4 -> BNK 4 

R1+R3 -> R3 -> MAR 1 
!(H+1-Y)»W + BMA + X/16" 

R0+1->SCR !(X+1)M0D16" 

MD -> R2 2 

ItSR -> Rl 1 

STK -> R0 !M" 

R0 - 2 
IF R0=2 
IF R0<2 



517 
518 

519 
51A 



51C 
51D 
51E 



34 E2 4C 60 10 
51 C8 07 20 0F 

38 E2 4C 60 10 
51 C8 07 20 0F 



51B 2C E2 4C 



2E 68 0C 60 D0 
4F E7 EC 40 30 
0F E0 0F E0 03 



#CLR 

#INV 

#SET 
#DD 

$ 



1 - -S AB 

#DD T 

1 - XOR AB 
#DD T 



1 - OR ZA 
1 B« OR DZ 
1 Q OR DZ 



1 2 



1 2 - 



1 - OR AB 1 2 



JMP 



JMP 



MD ALU ~R1 & R2 -> MD 



8 MD ALU Rl XOR R2 -> MD 



- - - MD ALU Rl OR R2 -> MD 

- - - BNK ALU R4 -> BNK 

- - S e MAR ALU R3 -> MAR, STK -> T 
S JMP - 8 ALU IR4 JMAP 



1 2 



1 2 



1 2 

4 

3 T 




5 IF 
520 
521 
522 
523 
524 



4 3 2 10 
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USED REGS 



PROCEDURE DCH; (« W 27.3.79 



0F E0 0C 40 30 
6F E0 6C 40 FF 
6F E0 8C 40 FF 
6F El 0C 60 01 
21 40 0C 60 30 
4F F3 2C 40 01 



DCH 



POP(CH); 

POP(DESTBLD); 

POP ( FONT ADDR); 

POP(BMD); 

DX := DESTBLD.X; 

PUSH(M); 

DY := DESTBLO.Y; 



') 



CH 

DESTBLD 
FONTADDR 
BMD 
DX 



1 
1 B 
1 B 
1 B 
1 - 
1 



OR 
OR 
OR 
OR 



B» OR 



DZ e 
DZ 
DZ 8 
DZ 
ZQ 1 
DZ 



3 - - 

4 - . 

10 - - 



S 
S 
S 



M 11 



MAR ALU 

POP - 
POP - 

- ALU MD 

- MAR ALU 
S ALU MD 



BMA := BMD. ADDR; 
PUSH(H); 



M ; DY 

STK -> Q -> MAR 

STK -> R3 

STK -> R4 

MD -> R10 

Q+1 -> MAR 

M -> STK, MD -> Rll 

5 ; BMA 















« 


BMWIDTH ;= BMD. WIDTH; 








6 


BMWIDTH 
















« 


PUSH(S); 
























« 


BMHEIGHT := BMD. HEIGHT + 1 








; BMHEIGHT 




525 


2E 


68 


00 


68 


30 


1 


L - OR ZA 4 - - - - 


_ 


- 8 MAR 


ALU 


R4 -> MAR 


4 


526 


4F 


F4 


AC 


48 


81 


1 


L B. OR DZ P 5 - - - 


- 


S ALU 


MD 


P -> STK, MD -> R5 


5 P 


527 


62 


48 


8C 


68 


30 


] 


LB + ZA 1 4 4 - - - 


- 


- MAR 


ALU 


R4+1 -> R4 -> MAR 


4 


528 


4F 


F6 


CC 


40 01 


1 


L B. OR DZ H 6 - - - 


- 


S ALU 


MD 


H -> STK, MD -> R5 


6 H 


529 


22 


48 


0C 


60 


30 




L - + ZA 1 4 - - - - 


- 


- MAR 


ALU 


R4+1 -> MAR 


4 


52A 


43 


D8 


0C 


48 


81 


i 


L B» + DZ 1 S - - - 

BLOCKWIDTH ;= 0; 

PUSH(G); 

PUSH(L); 




S ALU 


MD 


S -> STK, MD+1 -> R0 
S ; BLOCKWIDTH 


S 
















DWORD := BMHEIGHT - DY; 








M 


DWORD 


















CH := CH MOD 377; 








M 


CH 


















DWORD ;= BMWIDTH • DWORD; 








Q 


DWORD 




52B 


52 


7B 


8C 


40 


0F 


] 


L B". 8 ZA G S - - - 


- 


S B PSH 


_ 


G -> STK, -> S 


S G 


52C 


4D 


7D 


CC 


40 


8F 




L B« OR ZQ 8 L L - - - 


- 


S PSH 


- 


L -> STK, Q -> L 


L 


52D 


68 


CI 


2C 


60 


FF 




LB - AB 1 11 - - - 


- 


- - 


- 


R0 - RH -> Rll 


B M 


52E 


22 


52 


0C 


40 


0F 




L - + ZA 1 11 - - - - 


- 


S PSH 


- 


Rll * 1 -> STK 


M 


52F 


0E 


72 


0C 


60 


FF 


... 


L Q OR ZA 8 11 - - - - 


- 


- - 


- 


Rll -> Q 


M Q 


530 


72 


FF 


2C 


70 


FF 




LB 8 DA 8 T 11 - - ~ 


- 


- 1 377 




T 8 377 -> Rll 


M T 


531 


6E 


6D 


EC 


60 


FF 




LB OR ZA 6 T - - - 


- 


- - 


_ 


R5 -> T 


6 T 


532 


3C 


98 


03 


20 


0F 


i 

» 


3 #MUL16 T 
DWORD ;= DWORD + BMA * (DX 


JSR 
DIV 


IB); 




Q . T -> Q (-2-) 

1 ; DWORD 
















* 


BITADDR := DX MOD 16; 











BITADDR 
















* 


FBANK ;= FONTADDR MOD 4; 








H 


FBANK 
















« 


BANK := BMA MOD 4; 








2 


BANK 




533 


4F 


F0 


24 


64 


00 


] 


LB* OR DZ 8 10 1 R 4 - 


_ 


- ALU 


ALU 


R10t4 -> Rl 


1 8 


534 


76 


E2 


2C 


74 


08 




LB -& DA 8 1 1 M 4 - 


- 


- 1 




-MSK(0,4) 8 Rl -> Rl 


1 


535 


60 62 


2C 


60 


FF 




LB + AQ 8 1 1 - - - 


- 


- - 


- 


Rl ^- Q -> Rl 


1 Q 


536 


72 


EA 


4C 


70 


03 


1 


LB & DA 8 5 2 - - - 


- 


- 1 3 




3 8 R5 -> R2 


2 5 


537 


76 


EA 


AC 


70 


03 


1 


LB -& DA 8 5 5 - - - 


- 


- 1 3 




~3 & R5 -> R5 


5 


538 


4F 


E6 


64 


6E 


00 


] 


L B» OR DZ 8 3 3 R 16 - 


- 


- ALU 


ALU 


(R3tl6) -> R3 


3 


539 


72 


E7 6C 70 


03 


1 


LB & DA 3 H - - - 


- 


- 1 3 




3 8 R3 -> H 


3 H 


53A 


76 


E6 


6C 


70 


03 


] 


LB -& DA 3 3 - - - 


- 


- 1 3 




-3 8 R3 -> R3 


3 


53B 


60 


EA 2C 


60 


FF 


3 


LB * AB 8 5 1 - - - 


- 


- - 


- 


Rl 


+ R5 -> Rl 


1 5 



4 3 2 10 

53C 72 F0 0C 70 0F 
53D BE 71 EC 60 FF 



53E 


55 


48 


03 


20 0F 


53F 


6E 


7C 


4C 


60 30 


540 


62 F8 


0C 


60 01 


541 


2E 


60 


BC 


60 10 


542 


42 


44 


4C 


60 30 


543 


22 


44 


0C 


60 30 


544 


6A 


08 


0C 


60 01 


545 


2E 


60 


0C 


60 10 


546 


22 


44 


0C 


60 30 


547 


54 


C8 


03 


20 0F 


548 


0F 


E0 


0F 


E0 03 


549 


00 


08 


00 


20 0F 


54A 


54 


C8 


03 


20 0F 


54B 


3E 


98 


07 


20 0F 


54C 


6F 


E0 


0C 


40 FF 


54D 


6F 


El 


CC 


40 FF 


54E 


6F 


El 


AC 


40 FF 


54F 


6F 


El 


8C 


40 FF 


550 


6F 


El 


6C 


40 FF 


551 


6F 


El 


4C 


40 FF 


552 


6F 


El 


2C 


40 FF 


553 


6F 


El 


E9 


40 FF 



Informatik ETH Zuerich Micro-Code-Assembler 'MIA' 
LABEL K DST FCT RS C A B SHFT SP PC S E BD BS COMMENT 



TRAPDCH 



EXITDCH 



1 B 
1 B 



8 

OR 



DA 
ZA 



CONVERT(CH); 
POP(L); 
POP(G); 
DESTBLD.X := 
DESTBLD.W := 

POP(S): 

POP(F) 
POP(H) 
POP(P) 
POP(M) 
POP(T) 
END DCH; 

#CONVERT 

1 B OR 
IB + 
1 - OR 
1 B« + 
1 - + 
1 B - 
1 - OR 
1 - + 

EXITDCH 

1 Q OR 



ZA 
ZA 
DA 
ZA 
ZA 



1 B 
1 B 
1 B 



OR 
OR 
OR 
OR 
OR 
OR 
OR 
OR 



19 9 
10 T 



DESTBLD.X 
DESTBLD.W 



1 17 
- 



BLOCKWIDTH; 
BLOCKWIDTH; 



R10 & 17 
R10 -> T 



-> R0 
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USED REGS 

8 
8 T 



ZA 8 
DA 
ZA 



1 
1 
1 


1 
T 
DZ 



T 
EXITDCH T 
TRAP(4) T 



DZ 8 
DZ 
DZ 
DZ 
DZ 
DZ 8 
DZ 
DZ 



JSR 








CONVERT(Rll) 


- 





MAR 


ALU 


L -> MAR -> R2 


- 





ALU 


MD 


MD -H S -> R0 


- 





MD 


ALU 


R0 -> MD 


. 





MAR 


ALU 


R2 -> MAR, R2 


- 





MAR 


ALU 


R2 + 1 => MAR 


- 





ALU 


MD 


MD - S -> R0 


- 





MD 


ALU 


R0 -> MD 


. 





MAR 


ALU 


R2 ■<■ 1 -> MAR 


JSR 








RESTORE REGS 


3MP - 





ALU 


IR4 


JMAP 


POP 








FIX 2911 STACK 


JSR 








RESTORE REGS 


JMP 








TRAP(4) 


- S 





POP 


- 


STK -> DUMMY 


- S 





POP 


- 


STK -> L 


S 





POP 


- 


STK -> G 


- S 





POP 


- 


STK -> S 


- s 





POP 


- 


STK -> H 


- s 


B 


POP 


_ 


STK -> P 


- s 


8 


POP 


- 


STK -> M 


RTN S 





POP 


- 


STK -> T 



+ 1 -> R2 



4 3 2 10 



Informatik ETH Zuerich Micro-Code-Assambler 'MIA' 
LABEL K DST FCT RS C A B SHFT SP PC S E BD BS COMMENT 
PROCEDURE CONVERT (CH ■.CHARACTER); 
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USED REGS 



CHAR ;= FONTADDR + CH; 
CHARPTR := CHAR * M[CHAR]; 
PSEUDOCHAR ;= 0; 
WIDTH := CHARPTRt. WIDTH; 



554 


2E 76 0C 60 D0 


#CONVERT 1 


L - 


OR 


ZA 


H - 


555 


68 E7 2C 60 38 




L B 


+ 


AB 8 


3 11 


556 


62 F3 2C 60 01 




L B 


+ 


DA 


11 11 


557 


2E 76 0C 60 D0 




L - 


OR 


ZA 


H - 


558 


52 73 AC 60 30 




L B» 


& 


ZA 8 


11 15 


559 


6F E0 EC 60 01 




L B 


OR 


DZ 8 


- 7 





g 

9 


CHAR 
CHARPTR 






G 


PSEUDOCHAR 






7 


WIDTH 




BNK ALU 


H -> BNK 


H 


MAR ALU 


R3 ♦ Rll -> Rll -> MAR 


3 M 


e ALU MD 


MD + Rll -> Rll 


M 


BNK ALU 


H -> BNK 


H 


MAR ALU 


Rll -> MAR, -> G 


M G 


8 ALU MD 


MD 


-> R7 


7 



55A 55 D8 47 20 0F 
55B 6A 6F AC 60 FF 
55C 6F E0 EC 78 10 



IF WIDTH < 8 THEN (* CHARACTER WIDER THAN 16 BITS ») 

PSEUDOCHAR := COMPL(WIDTH) ; 

WIDTH := 16; 
END; 



#CNV1 -F 

IB - ZA 7 G - 

IB OR DZ - 7 - 



JMP 



- 

1 28 



BLOCKWIDTH ;= BLOCKWIDTH + WIDTH; 
HEIGHT ;= CHARPTRt . HEIGHT ; 
NEXTBITADDR := BITADDR + WIDTH; 



55D 


60 


EF 


EC 


68 


FF 


#CNV1 


1 B 


* AB 


7 


T 


- 


— _ 


55E 


54 


92 


07 


20 


0F 




TRAPDCH C 








- JMP 


55F 


4F 


EC 


A4 


6C 


00 




1 B« 


OR DZ 8 


6 


5 


R 


14 - - 


560 


28 


CB 


EC 


60 


FF 




1 - 


- AB 1 


5 


T 


- 


- - - 


561 


54 


9A 


07 


28 


8F 




TRAPDCH -C 








- JMP 


562 


60 


EF 


8C 


60 


FF 




1 B 


+ AB 


7 


S 


_ 


_ _ . 


563 


2E 


76 


0C 


60 


D0 




1 - 


OR ZA 8 


H 


- 


- 





564 


22 


52 


0C 


60 


30 




1 - 


+ ZA 1 


11 


- 


- 


- — 


565 


40 


E0 


EC 60 


40 




1 B» 


+ AB 8 


8 


7 


- 


- - - 


566 


6F 


El 


0C 


60 


Bl 




1 B 


OR DZ 8 


- 


18 


- 


— - 


567 


12 


F0 


0C 


70 


FF 


« 


1 
IF 


& DA 8 
HEIGHT = 


18 




















• ,. 


THEN 






















* 




IF NEXTBITADDR 


>= 


16 


THEN 














« 




NEXTBITADDR 


: = 


NEXTBITADDR 














« 




INC(DWORD); 




















« 




END; 










568 


56 


C9 


07 


20 


0F 




#CNV10 


-Z 






- JMP 


569 


26 


CE 


0C 


78 


10 




1 - 


-+ DA 1 


7 


- 


- 


— - 


56A 


5A 


00 


27 


20 


0F 




#CNV6 


S 






- JMP 


56B 


59 


E8 


07 


20 


0F 




#CNV50 


T 






- JMP 



ALU ALU 



GOTO #CNV1 IF >=0 
~R7 -> G 
16 -> R7 

S ; BLOCKWIDTH 

: HEIGHT 

7 : NEXTBITADDR 

R7 + T -> T 
TRAP IF OVERFLOW 
(R6tl4) -> R5 
R5 - T 
TRAP IF 16«BMW < T 



- - R7 + S -> S 

BNK ALU H -> BNK 

MAR ALU Rll+1 -> MAR 

SR ALU R8 -> SR, R0+R7 -> 

ALU MD MD -> R10 

1 377 R10 & 377 -> Q 



16; 



R7 



1 20 



GOTO #CNV19 IF 
R7 - IB 

GOTO CNV6 IF O 
GOTO CNV50 



7 G 
7 



7 T 

5 6 
5 T 



7 S 
H 

M 

7 
8 

8 



56C 6E 62 8C 60 FF 
56D 4F Fl 04 68 00 



#CNV10 



ELSE 
CURRENTWORDADDR ;= DWORD; 
SKIP ;= CHARPTRt, SKIP; 

IB OR ZA 1 4 - - - - 
1 B« OR DZ 10 18 R 10 - - 



ALU ALU 



4 : CURRENTWORDADDR 
8 : SKIP 

Rl -> R4 
R10tl0 -> R10 



1 4 
8 



WHILE SKIP > DO 



Informatik ETH Zuerich 



Micro-Code-Assembler ^-IIA' 



4 3 2 10 LABEL 



56E 72 Fl 0C 70 FF 



56F 


6F 


E0 


AC 40 FF 


570 


2E 


6A 


0C 40 0F 


571 


64 


D0 


AC 60 FF 


572 


54 


9A 


07 20 0F 


573 


28 


4A 


0C 60 FF 


574 


54 


9A 


07 20 0F 


575 


2E 


70 


0C 60 FF 


576 


57 


Al 


07 20 0F 


577 


64 


CC 


80 60 FF 


578 


66 


71 


0C 60 FF 


579 


57 


79 07 20 0F 



#CNV2 



K DST FCT RS C A B SHFT SP PC S E BD BS COMMENT 



Page 51 
USED REGS 



CURRENTWORDADDR 

DEC(SKIP); 
END; 

IB S DA 10 19 

IB OR DZ - 5 
1 - OR ZA 5 - 
IB -+ AB 1 10 5 

TRAPDCH -C 

1 - - AQ 1 5 - 

TRAPDCH -C 

1 - OR ZA 10 - 
#CNV3 Z 



CURRENTWORDADDR- 
BMWIDTH; 



- 1 377 



1 B -+ 


AB 1 6 4 


IB -* 


ZA 18 10 


#CNV2 


-Z 



R10 & 377 -> R10 



- S POP - 


STK -> R5 


- S PSH - 


R5 -> STK 


- - - - 


R5 - R10 -> R5 


JMP 


TRAP IF R5<R10 


- - - - 


R5 - 


JMP 


TRAP IF R5<Q 


- - - - 


R19 


JMP 


GOTO #CNV3 IF =0 


- - - - 


R4 - R6 -> R4 


- - - - 


R10-1 -> R10 


JMP 


GOTO #CNV2 IF #0 



5 

5 
5 8 

5 Q 
8 
4 6 



8 : HEIGHT 



57A 6D 61 0C 60 FF 

57B 60 EC 80 60 FF 

570 26 CE 00 70 10 

57D 58 A8 27 20 0F 



57E 


2E 76 00 60 D0 


57F 


66 73 20 60 30 


580 


6F E0 B4 60 01 


581 


2E 64 00 60 D0 


582 


64 CC 8C 60 30 


583 


5E EA AC 60 01 


584 


2E 6A 00 60 10 


585 


2E 64 00 60 D0 


588 


2E 68 0C 60 30 


587 


66 71 00 60 FF 


588 


57 E9 07 20 0F 



589 5A 08 07 20 0F 



58A 2E 76 00 60 D0 

58B 66 73 20 60 30 

58C 6F E0 B4 60 01 

58D 7F El 50 70 00 



#CNV3 



#CNV4 



#CNV5 



CURRENTUORDADDR := CURRENTWORDADDR+ 

BMWIDTH; 
IF NEXTBITADDR < 16 
THEN (» NO WRAP AROUND •) 



IB OR ZQ - 10 

IB + AB 6 4 

1 - -+ DA 1 7 - 
#CNV5 -S 



- 

- 

1 20 



- JMP 



FOR I ;= HEIGHT DOWN TO 1 DO 

R5 ;= ROT(CHARPTRt,DOTS[I],BITADOR); 

CURRENTWORDADDR := CURRENTWORDADDR- 
BMWIDTH; 

M[OURRENTWORDADDR] ;= M[C.W.A] OR R5; 
END; 



~> R10 

R4 + R6 -> R4 

R7 - 16 

GOTO #CNV5 IF >=0 

8 : I 
5 : R5 



1 - 


OR 


ZA 


H 


- 


- 


- — 


1 B 


- + 


ZA 


11 


11 


- 


- — 


1 B 


OR 


DZ 


- 


5 


RR 


— - 


1 - 


OR 


ZA 


2 


- 


- 


_ _ - 


1 B 


- + 


AB 1 


6 


4 


- 





1 B 


OR 


DA 


5 


5 


- 





1 - 


OR 


ZA 


5 


- 


- 


- - - 


1 - 


OR 


ZA 


2 


- 


- 


— _ 


1 - 


OR 


ZA 


4 


- 


- 


— . 


1 B 


- + 


ZA 


10 


10 


- 


— - 


#0NV4 




-Z 






- JMP 


#CNV6 




T 






- JMP 



~ BNK ALU H -> BNK 

- MAR ALU Rll-1 -> Rll -> MAR 

- 8 ALU MD MDtSR -> R5 

- BNK ALU R2 -> BNK 

- MAR ALU R4 - R6 -> R4 -> MAR 

- ALU MD MD OR R5 -> R5 

- MD ALU R5 -> MD 

- BNK ALU R2 -> BNK 

- MAR ALU R4 -> MAR 

- - - R10-1 -> R19 

GOTO #CNV4 IF #0 

GOTO #CNV6 



ELSE (* WRAP AROUND *) 

FOR I := HEIGHT DOWNTO 1 DO 

1 - OR ZA H - - 

IB -+ ZA 11 11 - 

IB OR DZ - 5 RR - 

IB -XR DZ - 12 MR - - 



- BNK ALU H -> BNK 

- MAR ALU Rll-1 -> Rll -> MAR 

- ALU MD MDtSR -> R5 

- 1 -MSK(0,SR) -> R12 



8 Q 
4 6 
7 



H 

M 

5 

2 

4 5 

5 

5 

2 

4 

8 



4 3 2 10 



Informatik ETH Zuerich Micro-Code-Assembler 'MIA' 
LABEL K DST FCT RS C A B SHFT SP PC S E BD BS COMMENT 



58E 


70 EB 4C 60 FF 


58F 


2E 64 0C 60 D0 


590 


64 CC 8C 68 30 


591 


6E F5 4C 60 01 


592 


2E 74 0C 60 10 


593 


2E 64 0C 60 D0 


594 


2E 68 0C 60 30 



1 B 


& 


AB 


5 12 - 


1 - 


OR 


ZA 


2 - - 


1 B 


- + 


AB 1 


6 4 - 


1 B 


OR 


DA 


12 12 - 


1 - 


OR 


ZA 


12 - - 


1 - 


OR 


ZA 


2 - - 


1 - 


OR 


ZA 


4 - - 



BNK ALU 
MAR ALU 
ALU MD 
MD ALU 
BNK ALU 
MAR ALU 



R5 ;= ROT(CHARPTRt.DOTS[I],BITADDR); 
CW.A. ;= C.W.A, - BMWIDTH; 
M[C,W.A.] ;= M[C.W.A.] OR (R5 MOD 2»«BITADDR); 
END; 



R5 & R12 -> R12 

R2 -> BNK 

R4 - R6 -> R4 ~> MAR 

MD OR R12 -> R12 

R12 -> MD 

R2 -> BNK 

R4 -> MAR 

5 ; R5 
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USED REGS 

5 P 

2 

4 6 

P 

P 

2 

4 



595 


72 


EA 


BC 


70 


00 




1 B 


8 


DA 5 5 MR - - 


- 


1 







MSK(0,SR) & R5 -> R5 


5 


596 


2E 


64 


0C 


60 


D0 




1 - 


OR 


ZA 2 - - - - 


_ 





BNK 


ALU 


R2 -> BNK 


2 


597 


22 


48 


0C 


60 


30 




1 - 


+ 


ZA 1 4 - - - - 


- 





MAR 


ALU 


R4 + 1 -> MAR 


4 


598 


6E 


EA 


AC 


60 


01 




1 B 


OR 


DA 8 5 5 - - - 


- 





ALU 


MD 


MD OR R5 -> R5 


5 


599 


2E 


6A 


0C 


60 


10 




1 - 


OR 


ZA 5 - - - - 


- 





MD 


ALU 


R5 -> MD 


5 


59A 


2E 


64 


0C 


60 


00 




1 - 


OR 


ZA 2 - - - - 


- 





BNK 


ALU 


R2 -> BNK 


2 


59B 


22 


48 


0C 


60 


30 




1 - 


+ 


ZA 1 4 - - - - 


- 





MAR 


ALU 


R4 + 1 -> MAR 


4 


59C 


66 


71 


0C 


60 


FF 




1 B 


- + 


ZA 10 10 - - - 


- 





- 


- 


R10 - 1 -> R10 


8 


590 


58 


Ag 


07 


20 


0F 




#CNV5 


-Z 


JMP 








GOTO #CNV5 IF #0 
















* 




NEXTBITADDR ;= N.B.A. 


- 16; 
























» 




INC(DyORD); 


























» 




END; 
















59E 


66 


CE 


EC 


70 


10 


#CNV50 


1 B 


- + 


DA 1 7 7 - - - 


_ 


1 


20 




R7 - 16 -> R7 


7 


59F 


62 


42 


2C 


60 


FF 




1 B 


+ 


ZA 1 1 1 - - - 


- 





- 


- 


Rl •► 1 -> Rl 


1 


















BITADDR ;= NEXTBITADDR; 










: BITADDR 


















END; 






























CH 


;= PSEUDOCHAR; 




























IF 


CH # 


THEN CONVERT(CH) 


; END; 


























END 


CONVERT; 














5A0 


6E 


6E 


0C 


60 


FF 


#CNV6 


1 B 


OR 


ZA 7 - - - 


„ 





_ 


_ 


R7 -> R0 


7 


5A1 


6E 


7B 


2C 


60 


FF 




1 B 


OR 


ZA G 11 - - - 


. 





- 


- 


G -> Rll 


M G 


5A2 


55 


49 


07 


28 


0F 




#CONVERT -Z 


JMP 








JMP CONVERT IF #0 




5A3 


00 


08 


01 


20 


0F 









T 


RTN 








RETURN 





4 3 2 10 



5A4 6F E0 6C 40 FF 

5A5 BF E0 0C 40 FF 

5A6 6F E0 0C 40 FF 

5A7 2E 72 0C 40 0F 



5A8 


42 5F EC 60 30 


5A9 


4F FC CC 40 01 


5AA 


42 5F EC 60 38 


SAB 


4F FB 0C 48 01 


SAC 


42 5F EC 60 30 


SAD 


4F F7 6C 40 81 


5AE 


4D 7F EC 60 38 


5AF 


4F F5 2C 40 01 



5B0 


42 5F 


EC 60 30 


5B1 


4F F9 


8C 40 01 


5B2 


42 5F 


EC 60 30 


5B3 


6F E0 


8C 60 01 


5B4 


2E 7E 


0C 60 30 


5B5 


6F E0 


4C 60 01 


5B6 


62 E4 


4C 70 82 


5B7 


6E 6C 


AC 60 FF 


5B8 


60 F6 


AC 60 FF 


5B9 


5C S2 


07 20 0F 


5BA 


4F E9 


44 6C 00 


5BB 


28 D4 


AC 60 FF 


SBC 


5C 5A 


07 20 0F 



Informatik ETH Zusrich Micro-Code-Assembler 'MIA' 
LABEL K DST FCT RS C A B ShlFT SP PC S E BD BS COMMENT 
• PROCEDURE INIT; (« W 29.2.79 



#INIT 
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USED REGS 



PGP(DESTBLD) ; 








) 






T 


DESTBLD 




POP(SRCBLD); 














P 


SRCBLD 




[REPL: POP(SOURCE); 










P 


SOURCE] 




PGP(BMD); 

















BMD 






POP(MODE); 

















MODE 






PUSH(M); 






















IB OR DZ 8 


- 


3 - - 


- - 


S 9 


POP 


- 


STK -> R3 




3 


1 Q OR DZ 


- 


. _ _ 


— 


S 


POP 


- 


STK -> Q 







IB OR DZ 


- 


- - 


— 


S 


POP 


- 


STK -> R8 







1 - OR ZA 8 


M 


- - - 


— 


S 


PSH 


- 


M - 


■> STK 




M 


PUSH(L); 






















DX := DESTBLD 


.X; 












6 


DX 






PUSH(G); 






















DY ;= DESTBLD 


■ Y; 












8 


DY 






PUSH(H); 






















DW := DESTBLD, WIDTH; 










H 


DW 






PUSH(P); 






















DH ;= DESTBLD. HEIGHT; 










M 


DH 




















T 


BMD 






1 B» + ZA 1 


T 


T - - 


. _ 


- 


MAR 


ALU 


T - 


> MAR, 


T*l -> T 


T 


1 B. OR DZ 8 


L 


6 - - 


— 


S 


ALU 


MD 


L - 


> STK, 


MD -> R6 


6 L 


1 B» + ZA 1 


T 


T - - 


— 


- 


MAR 


ALU 


T ■ 


-> MAR, 


T+1 -> T 


T 


1 B« OR DZ 


G 


10 - - 


— 


S 


ALU 


MD 


G - 


-> STK, 


MD -> R10 


8 G 


1 B» + ZA 1 


T 


T - - 


— 


- 


MAR 


ALU 


T ■ 


■> MAR, 


T+1 -> T 


T 


1 B» OR DZ 8 


H 


H - - 


. _ 


S 


ALU 


MD 


H - 


-> STK, 


MD -> H 


H 


1 B. OR ZQ 8 


T 


T - - 


— 


- 


MAR 


ALU 


T ■ 


-> MAR, 


Q -> T 


T 


1 B« OR DZ 8 


P 


11 - - 


- - 


S 


ALU 


MD 


P - 


> STK, 


MD -> Rll 


M P 


PUSH(S); 






















BMA ;= BMD.ADDR; 












S 


BMA 






BMWIDTH ;= BMD. WIDTH; 










4 


BMWIDTH 




BMHEIGHT := BMD, 


HEIGHT * 


2 








2 


BMHEIGHT 




IF (DX+DW >= 


2*« 


16) 


















OR (DX+DW > 16.BMWIDTH) 


















OR (DY+DH >= 


2*' 


16) 


















OR (DY+DH > BMHEIGHT) 


















THEN TRAP END 


i 




















SX ;= SRCBLD. 


X 












5 


SX 






[REPL; LENGTH 


: = 


SOURCE. COUNT; 








5 


LENGTH] 




END INIT; 














Q 


'FFF' 






1 B« + ZA 1 


T 


T - - 


_ _ 


- 


MAR 


ALU 


T - 


■> MAR, 


T+1 -> T 


T 


1 B« OR DZ 


S 


S - - 


— 


S ALU MD 


S - 


> STK, 


MD -> S 


S 


1 B» + ZA 1 


T 


T - - 


- - 


- 


MAR 


ALU 


T - 


■> MAR, 


T*l -> T 


T 


IB OR DZ 


- 


4 - - 


- - 


- 


ALU 


MD 


MD 


-> R4 




4 


1 - OR ZA 


T 


_ _ - 


— 


- 


MAR 


ALU 


T - 


> MAR 




T 


IB OR DZ 


- 


2 - - 


- - 


- 


ALU 


MD 


MD 


-> R2 




2 


IB * DA 


2 


2 - - 


- - 


- 1 


2 




2 < 


' R2 -> 


R2 


2 


IB OR ZA 


6 


5 - - 


_ _ 


- 


. 


- 


R6 


-> R5 




5 6 


IB + AB 


H 


S - - 


- - 


- 


- 


- 


H ^ 


R5 -> 


R5 


5 H 


TRAPBB C 






- JMP 








TR^ 


iP IF OVERFLOW 




1 B» OR DZ 


4 


P R 14 


- - 


- 


ALU 


ALU 


(Ri 


5tl4) - 


> P 


4 P 


1 - - AB 1 


P 


5 - - 


- - 


- 


- 


- 


P - 


R5 




5 P 



TRAPBB 



-C 



JMP 



TRAP IF P<R5 



4 3 2 10 
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USED REGS 



5BD 


6E 78 AC 68 FF 


5BE 


63 F2 AC 60 FF 


5BF 


5C 52 07 20 0F 


5C0 


28 C4 AC 60 FF 


5C1 


5C 5A 07 20 0F 


5C2 


42 47 4C 60 30 


5C3 


6F E0 AC 60 01 


5C4 


IF E0 09 74 00 



IB OR ZA B IB 5 

IB + AB M 5 
8 TRAPB3 C 

1 - - AB 1 2 5 
TRAPBB -C 



1 B» 
1 B 
1 Q 



+ ZA 1 3 
OR DZ B - 
-XR DZ B - 



12 
5 



- JMP 

- JMP 

M 4 - RTN 



RIB -> R5 

M + R5 -> R5 

TRAP IF OVERFLOW 

R2 - R5 

TRAP IF R2<R5 



5 8 
5 M 

2 5 



MAR ALU 

ALU MD 

1 



R3 -> MAR, 
MD -> R5 
"MSK(0,4) ■ 



R3+1 -> R12 3 P 
5 

> 0, RTN Q 



5C5 00 08 00 20 BF 
5C6 5C A8 03 2B BF 
5C7 3E 08 07 20 BF 



TRAPBB 



8 T 

EXITREPL T 
TRAP(4) T 



POP 
JSR 
JMP 



FIX 2911 STACK 
RESTORE REGS 
TRAP(4) 



5C8 2F EB BC 48 FF 
5C9 2F EB BC 4B FF 



5CA 
5CB 
5CC 
5CD 
5CE 
5CF 
5D8 
5D1 



6F El 
6F El 
6F El 
6F El 
6F El 
6F El 
6F El 
0F E0 



8C 40 FF 
4C 4B FF 
6C 48 FF 
AC 48 FF 
CC 48 FF 
2C 48 FF 
E9 48 FF 
8F E8 83 



EXITBBLT 1 

1 



EXITREPL 



OR DZ 
OR DZ 



OR 
OR 
OR 
OR 
OR 
OR 
OR 
OR 



DZ 8 
DZ 8 
DZ 
DZ 
DZ 
DZ 
DZ 
DZ 



S POP - 
S POP - 



- RTN 



POP 
POP 
POP 
POP 
POP 
POP 
8 POP 



STK -> DUMMY 
STK -> DUMMY 



STK 
STK 
STK 
STK 
STK 
STK 
STK 



-> S 
-> P 
-> H 
-> G 
-> L 
-> M 
-> T 



S JMP - 8 ALU IR4 JMAP 



5E1 
5E2 



4 3 2 18 



5D2 


6E 7E 2C 60 FF 


5D3 


6F El EC 40 FF 


5D4 


5A 48 03 20 0F 


5D5 


2E 74 0C 60 30 


5D6 


6E 68 6C 60 FF 


5D7 


6F E0 EC 60 01 


5D8 


62 42 2C 60 30 


5D9 


6F El 4C 60 01 



5DA 


28 CF 00 60 FF 


5DB 


5E 10 27 20 0F 


5DC 


6A 46 6C 60 FF 


5DD 


6A 55 4C 60 FF 


5DE 


62 4E EC 60 FF 


5DF 


62 51 0C 60 FF 


5E0 


5E 38 07 20 0F 



60 F2 EC 60 FF 
60 F3 0C 60 FF 



Informatik ETH Zuerich Micro-Code-Assembler 'MIA' 
LABEL K OST FCT RS C A B SHFT SP PC S E BD BS COMMENT 
. PROCEDURE BBLT; (» BLOCK TO BLOCK TRANSFER 



BBLT 



#UP 
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USED REGS 



■') 



SBMD 



JSR 



POP (SBMD); 

INIT; 

DBMV := DBMWIDTH; 

SY := SRCBLD.Y; 

SBMV := SBMD.W; 

IB OR ZA T 1 

IB OR DZ - T 

#INIT T 

1 - OR ZA 12 - 
IB OR ZA 4 3 
IB OR DZ - 7 
IB * ZA 1 1 1 
IB OR DZ - 12 



(• COMPUTE MASKS, INCREMENT-STEPS AND BITPOSITION (FOR ALIGNEMENT) «) 
IF SY > DY 
THEN (« DOWN MOVE, THE TRANSFER STARTS WITH THE BOTTOM 

LINE OF THE BLOCK, ..« (BMW < 0) ») 





3 : DBMW 








7 ; SY 








P : SBMW 






- - - 


T -> Rl 




1 T 


S POP - 


STK -> T 
INIT 




T 


- 8 MAR ALU 


R12 -> MAR 




P 


- - - 


R4 -> R3 




3 4 


- ALU MD 


MD -> R7 




7 


- MAR ALU 


Rl + 1 -> MAR 


-> Rl 


1 


- ALU MD 


MD -> R12 




P 



DBMW 


= -DBMW; 








SBMW 


= -SBMW; 








SRCY 


= SY + 1; 






7 : SRCY 


DSTY 


= DY + 1; 






8 : DSTY 


1 - - AB 1 7 10 - - 


_ _ 


- - 


R7-R10 


#UP S 


- JMP 




GOTO UP IF <0 


IB - ZA 1 3 3 - - 


- _ 


- - ■ 


-R3 -> R3 


IB - ZA 1 12 12 - - 


- - 


- - 


-R12 -> R12 


IB * ZA177-- 


_ - 


- - ■ 


R7+1 -> R7 


1 B + ZA 1 10 10 - - 


- .. 


- - - 


R10+1 -> R10 


#HORIZ T 


- JMP 




GOTO HORIZ 


ELSE (• UP MOVE, 


START 


WITH THE 


TOP LINE OF THE BLOCK 
(BMW > 0) 


SRCY := SY + DH; 






7 : SRCY 


DSTY ;= DY + DH; 






8 : DSTY 


END; 








IB + AB 11 7 - - 


- _ 


- - 


R11+R7 -> R7 


1 B + AE 


i 11 10 - - 


- - 


- - 


RH+R10 -> R10 



7 8 

3 
P 
7 
8 



7 M 

8 M 











Informat 


k ETH Zuerich 




Micro-Code-Assemb1( 


if 'h 


lA' 
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4 


3 2 


1 


LABEL 


K DST FCT RS C 


A 


B SHFT SP PC S 


E BD 


BS 


COMMENT 




USED REGS 










« 




SBMHEIGHT ; 


= SBMD.H * 2 




















* 




SBMH := SBMHEIGHT - SRCY; 






T; SBMH 














« 




DBMH ;= DBMHEIGHT - DSTY; 






8; DBMH 






5E3 


22 


42 0C 


60 30 


#HORIZ 


1 - 


+ ZA 1 


1 




8 MAR 


ALU 


Rl + 1 -> MAR 




1 


5E4 


2E 


66 0C 


40 BF 




1 - 


OR ZA 


3 


- - — - S 


PSH 


- 


R3 -> STK 




3 


5E5 


2E 


74 BC 


40 BF 




1 - 


OR ZA 


12 


- S 


8 PSH 


- 


R12 -> STK 




P 


5E6 


6F 


El EC 


60 01 




1 B 


OR OZ 


- 


T - 


ALU 


MD 


MD -> T 




T 


5E7 


62 


FF EC 


78 B2 




1 B 


* DA 


T 


T - 


1 2 




T + 2 -> T 




T 


5E8 


64 


CF EC 


60 FF 




1 B 


-+ AB 1 


7 


T - 


- 


- 


T - R7 -> T 




7 T 


5E9 


68 


C5 0C 


60 FF 


« 


1 B 


- AB 1 
IF SX < DX 


2 


18 - 


- 




R2 - R10 -> R 


10 


2 8 










» 




THEN 


(« 


RIGHT MOVE, THE 


LINES 


!\RE TRANSFERED FROM 


RIGHT 












« 








TO LEFT (HORIZ = 


-1) 








•) 










« 




HORIZ ;= 


-1; 








3 


HORIZ 














« 




MASK3 ;= 


COMPL(MSK(e,DX MOD 


16)); 




7 


MASK3 














* 




SBIT := SX + 


DW; 






5 


SBIT 














* 




DBIT := DX + 


DW; 






6 


DBIT 














» 




MASKl := 


MSK(0,DBIT MOD 16); 






G 


MASKl 














« 




SR := (DBIT-SBIT) MOD 16; 




















« 




MASK2 := 


MSK(0,SR); 






L : MASK2 














« 




WORDS := 


DBIT DIV 16 - DX DIV 16; 




H : WORDS 






SEA 


28 


CA CC 


60 FF 




1 - 


- AB 1 


5 


5 - 


- 


. 


R5-R6 




5 6 


5EB 


5F 


A8 27 


20 0F 




#LEFT -S 




- 3MP 






GOTO LEFT IF 


>=0 




SEC 


67 


C0 BC 


70 01 




1 B 


-+ DZ 1 


_ 


3 - 


1 1 




-1 -> R3 




3 


5ED 


2E 


6C 0C 


60 48 




1 - 


OR ZA 


6 


- - — - 


SR 


ALU 


R6 -> SR 




6 


SEE 


7F 


E0 FC 


70 B0 




1 B 


-XR DZ 


- 


7 MR - 


1 




~MSK(0,SR) ~> 


R7 


7 


5EF 


60 


F6 AC 


60 FF 




1 B 


+ AB 


H 


5 - 


- 


- 


H+R5 -> R5 




5 H 


SF0 


60 


FB CC 


60 40 




1 B 


+ AB 


H 


6 - 


SR 


ALU 


H*R6 -> R5 -> 


SR 


6 H 


5F1 


6F 


El BC 


78 80 




1 B 


OR DZ 


- 


G MR - 


1 




MSK(0,SR) -> 


G 


G 


5F2 


28 CC AC 


68 40 




1 - 


- AB 1 


6 


5 - 


SR 


ALU 


R6-R5 -> SR 




5 6 


5F3 


6F 


El DC 


78 80 




1 B 


OR DZ 


- 


L MR - 


1 B 




MSK(B,SR) -> 


L 


L 


5F4 


68 


CD 6C 


68 FF 




1 B 


- AB 1 


6 


H - 


- 


« 


RB - H -> H 


(DX) 


6 H 


5F5 


53 


77 64 


64 00 




1 B» 


S DQ 


H 


H R 4 - - - 


ALU 


ALU 


(Ht4) & Q -> 


H 


H 


5FB 


53 6D 44 


64 80 




1 B« 


& DQ 8 


6 


12 R 4 - - - 


ALU 


ALU 


(R6t4) 8 Q -> 


R12 


6 P Q 


5F7 


68 


D5 6C 


68 FF 




1 B 


- AB 1 


12 


H - 


- 


- 


R12 - H -> H 




P H 


5F8 


66 


6A AC 


68 FF 




1 B 


-* ZA 


5 


5 - 


~ 


- 


DEC(R5) 




5 


5F9 


60 


78 97 


28 8F 




#ENDIF T 




- JMP 






GOTO ENDIF 







4 3 2 1 



5FA 


6F 


E0 


6C 70 01 


5FB 


20 


ED 


6C 60 40 


5FC 


6F 


E0 


FC 70 00 


5FD 


5F 


F9 


07 20 0F 


5FE 


66 


6E 


EC 60 FF 


5FF 


2E 


6C 


ec 60 40 


600 


7F 


El 


BC 70 00 


681 


28 


CC 


AC 60 40 


602 


7F 


El 


DC 70 80 


603 


72 


ED 


4C 70 0F 


604 


60 


F5 


6C 60 FF 


605 


66 


77 


6C 60 FF 


606 


53 


77 


64 64 00 



687 


2E 


62 


0C 


60 39 


608 


0F 


E0 


0C 


60 01 


609 


26 


62 


8C 


60 30 


60A 


3C 


98 


03 


20 0F 


60B 


6F 


El 


4C 


60 01 


60C 


76 


F4 


2C 


70 03 


60D 


80 


62 0C 


68 FF 


60E 


76 


EA 


AC 


70 0F 


60F 


43 


6A 


24 


64 08 


618 


6E 


71 


EC 


60 FF 


611 


0E 


68 


0C 


60 FF 


612 


3C 


98 


03 


20 0F 


613 


72 


F9 


EC 


70 03 


614 


72 


F4 


8C 


70 83 


615 


76 


F9 


8C 


70 83 


616 


00 


78 


0C 60 FF 


617 


76 


EC 


CC 


78 8F 


618 


43 


6C 


44 


64 00 
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LABEL K DST FCT RS C A B SHFT SP PC S E BD BS COMMENT 



#LEFT 



#L 



#ENDIF 
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ELSE (» LEFT MOVE, THE LEFTMOST WORD OF THE 
BLOCK ARE TRANSFERED FIRST (HORIZ 



HORIZ := 1: 

SBIT := SX; 

DBIT ;= DX; 

MASKS := MSK(0,(DBITtDy) MOD 16); 

IF MASK3 = 8 THEN MASKS := FFFF; 

MASKl := COMPL(MSK(0,DBIT MOD 16)); 

SR ;= (DBIT-SBIT) MOD 16; 

MASK2 := COMPL(MSK(0,SR); 

16) - 1) 



LINES 

= 1) 
HORIZ 
SBIT 
DBIT 
MASK3 

MASKl 



IN THE 









WORDS ;= 


((DW + 


(DBIT 








DIV 


16); 




END; 










1 B 


OR 


DZ 


- 


3 


_ _ _ 


1 - 


+ 


AB 


6 


H 


- - - 


1 B 


OR 


DZ 


- 


7 


MR - - 


#L 




-Z 






- 


1 B 


- + 


ZA 


7 


7 


- - - 


1 - 


OR 


ZA 


6 


- 


- - - 


1 B 


-XR 


DZ 8 


- 


G 


MR - - 


1 - 


- 


AB 1 


5 


5 


- - - 


1 B 


-XR 


DZ 


- 


L 


MR - - 


1 B 


S 


DA 


6 


12 


_ _ 


1 B 


+ 


AB 


12 


H 


- — 


1 B 


- + 


ZA 


H 


H 


- - - 


1 B« 


s 


DQ 


H 


H 


R 4 - 



- 1 1 

- 8 SR 

- 1 



JMP 



SR 



SR 



ALU 



ALU 



ALU 



L ; MASK2 
H : WORDS 

1 -> R3 

R6^-H -> SR 
MSK(8,SR) -> 7 
IF 7 <> 
7 - 1 -> 7 
R6 -> SR 
MSK(0,SR) -> G 
R6-R5 -> SR 
MSK(0,SR ) -> L 



SWORD 



- 1 17 17 S R6 -> R12 

- 8 - - R12 + H -> H 

- - - H - 1 -> H 

- ALU ALU (Ht4) & -> H 

1 : SWORD 



SBMA • SBIT DIV 16 * 1 

SBMH » SBMWIDTH; 
(» SOURCE-WORD-address, WHERE THE TRANSFER STARTS «) 



DWORD ;= DBMA + DBIT DIV 16 * 

DBMH « DBMWIDTH; 
(» CORRESPONDING DESTINATION-WORD-ADORESS 
SBANK ;= SBMA MOD 4; 
DBANK ;= DBMA MOD 4; 



DWORD 



SBANK 
DBANK 



- OR 
Q OR 

- - + 

#MUL16 



B 
B 

B 

B« 



OR 



ZA 
DZ 
ZA 
T 
DZ 
DA 
AQ 
DA 
DQ 



JSR 



1 - 



HAR ALU 
ALU MD 
8 MAR ALU 

ALU MD 

1 3 

- - 
1 



Rl -> MAR 

MD -> 

Rl - 1 -> MAR 



Q « 
MD 
3 S 
Rl 



T -> Q (-2-) 
-> P 
P -> Rl 
. -> Q 



17 



R 4 



B OR ZA 



10 T - - 



OR ZA 4 



#MUL16 
B S 



T 
DA 
DA 

X DA 
AQ 

S DA 8 



- JSR 



ALU ALU 



1 3 
1 3 
1 3 



"17 8 R5 -> 

(R5t4) + - 

R10 -> T 



R5 
> Rl 



R4 ■ 
* 
3 « 
3 8 
"3 i 
S + 



1 17 



> 

T -> Q (-2-) 

S -> T 

P -> R4 

; s -> s 

Q -> Q 



'17 S R6 -> R6 



G 

5 6 
L 

6 P 
P H 
H 

H Q 



B« + DQ B 6 2 R 4 



ALU ALU (R6t4)+Q -> R2 



1 

1 

P 

1 P 
1 
5 

1 5 Q 

8 T 

4 Q 

5 T 

4 P 
S 

5 
6 

2 6 



4 3 2 1 



Infortnatik ETH Zuerich 
LABEL K DST FCT RS C 



Micro-Code-Assembler 'MIA' 
B SHFT SP PC S E BD BS COMMENT 



WHILE DH > DO (» LOOP FOR THE LINES OF THE BLOCK ») 
DEC(DH); 









» 




W ;= WORDS; 




8 : y 








« 




SA := SWORD; (* SRC- ADDRESS «) 




P ; SA 








« 




DA := DWORD; (« DEST- ADDRESS «) 




S : DA 








* 




STKl := M[DA]; 






619 


66 73 2C 60 


FF 


#WHILE 


DH 1 B 


-+ ZA 


11 11 - - 


_ 


Rll-1 -> Rll 


61A 


68 00 47 20 


0F 




#ENDBBLT F 


- JMP 




JHP END IF < 


6 IB 


2E 7E 0C 60 


D0 




1 - 


OR ZA 


T - - BNK 


ALU 


T -> &KK 


61C 


6E 65 8C 60 


30 




1 B 


OR ZA 


2 S - MAR 


ALU 


R2 -> S -> MAR 


61D 


6E 77 0C 60 


FF 




1 B 


OR ZA 


H 10 - - 


- 


H -> R10 


61E 


6E 63 4C 60 


FF 




1 B 


OR ZA 


1 12 - - 


- 


Rl -> R12 


61F 


2F E0 BC 40 


01 




1 - 


OR DZ 


- - S ALU 


MD 


MD -> STK 


620 


31 60 8C 40 


0F 




1 - 


& ZQ 


- - S PSH 


- 


-> STK 



IF (MASKl OR MASK2) <> MASK2 

THEN STK0 ;= RGT(M[SA],SR) AND NOT MASK2; 

SA := SA + HORIZ; 
ELSE STK0 := END; 
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R6 ;= ROT(M[SA],SR); 6 ; R6 

R5 ;= (STK0 OR (MASK2 AND R6)) AND MASKl; 5 ; R5 



M 

T 
2 S 

8 H 
1 P 



621 


0C FD AC 60 FF 


1 Q OR 


AB 


L 


G 


- - - 


L OR G -> 


G L Q 


622 


28 5C 0C 60 FF 


1 - - 


AQ 1 


L 


- - - - - 


- - - 


L - 


L Q 


623 


62 91 07 20 0F 


#ELSE 


Z 




- JMP 




IF = 




624 


2E 68 0C 60 D0 


1 - OR 


ZA 


4 


- - - - - 


- BNK ALU 


R4 -> BNK 


4 


625 


4F F4 CC 40 30 


1 B« OR 


DZ 


12 


6 


S MAR ALU 


R12 -> MAR, 

STK -> R6 (DUMMY) 


8 P 


626 


60 E7 4C 60 FF 


IB + 


AB 


3 


12 


- - - 


R3+R12 -> R12 


3 P 


627 


IE 7C 0C 60 FF 


1 -XR 


ZA 


L 


_ . 


- - - 


-L -> Q 


L 


628 


33 60 14 40 01 


1 - 8 


DQ 


- 


- RR 


S ALU MD 


(MDtSR) S Q -> STK 


Q 



629 


2E 68 


0C 60 


D0 #ELSE 1 - 


OR ZA 


4 


- 


- 


— _ 


- 


BNK 


ALU 


R4 -> BNK 


4 


62A 


2E 74 


0C 60 


30 


1 - 


OR ZA 


12 


- 


- 


_ _ _ 


- 


MAR 


ALU 


R12 -> MAR 


P 


62B 


6F E0 


D4 60 


01 


1 B 


OR DZ 


- 


6 


RR 


_ — 


- 


ALU MD 


(MDtSR) -> R6 


6 


62C 


10 FC 


CC 60 


FF 


1 


& AB 


L 


6 


- 


- — 


- 


- 


- 


LSR6 -> Q 


6 L 


62D 


6F 60 


AC 40 


FF 


1 B 


OR DQ 


- 


5 


- 


- — 


S 


POP 


- 


STK OR Q -> R5 


5 Q 


62E 


70 FA 


AC 60 


FF 

* 


1 B 


S AB 
CASE MODE 


G 

OF 


5 






- 






G AND R5 -> R5 


5 G 


62F 


26 C0 


0C 70 


02 


1 - 


-* DA 1 





_ 


_ 


_ _ _ 


- 1 


2 




R0-2 





630 


65 Fl 


07 20 


0F 


#INVERT Z 








- JMP 








JMP INVERT IF =0 




631 


67 28 


47 20 


0F 


#ERASE -F 








- JMP 








JMP ERASE IF >0 




632 


2E 60 


0C 60 


FF 


1 - 


OR ZA 





- 


- 


- - - 


- 


- 


- 


R0 





633 


64 C9 


07 20 


0F 


#PAINT -Z 








- JMP 








JMP PAINT IF #0 





Informatik ETH Zuerich 



4 3 2 10 LABEL 



Micro-Code-AssemblGr 'MIA' 

K DST FCT RS C A B SHFT SP PC S E BD BS COMMENT 

0; (« REPLACE, DEST ;= SOURCE «) 
R5 ;= R5 OR (STKl AMD NOT MASKl); 
WHILE W > DO (« LOOP OVER THE WORDS OF A LINE «) 

M[DA] :=R5; 

DA := DA + HORIZ; 
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634 


IE 7A 0C 60 FF 


1 


-XR ZA 


G 


- 


635 


13 60 0C 40 FF 


1 Q 


& DO 


- 


- 


636 


6C 6A AC 60 FF 


1 B 


OR AQ 


5 


5 


637 


2E 70 BC 60 FF 


1 - 


OR ZA 


10 


_ 


638 


64 51 07 20 0F 


#ENDLP0 Z 






639 


2E 6A 0C 60 10 


#REPLACE 1 - 


OR ZA 


5 


_ 


63A 


2E 7E 0C 60 D0 


1 - 


OR ZA 8 


T 


- 


63B 


2E 78 0C 60 30 


1 - 


OR ZA 


S 


- 


63C 


60 E7 8C 60 FF 


1 B 


+ AB 8 


3 


S 



- JMP 



- - 


- 


~G -> Q 




S POP 


- 


STK S Q -> 





- - 


- 


R5 OR -> 


R5 


- - 


~ 


R10 








JMP ENDLP0 


IF =0 


- MD 


ALU 


R5 -> MD 




- BNK 


ALU 


T -> BNK 




- MAR 


ALU 


S -> MAR 




- - 


- 


R3+S -> S 





G Q 

5 Q 



5 
T 
S 
3 S 



SA := SA + HORIZ; 
STK0 := R6 AND NOT MASK2; 
R6 := ROT(M[SA],SR); 
R5 := STK0 OR (R6 AND MASK2); 
W ;= W - 1; 
END; (• WHILE •) 



63D 


2E 


68 


0C 


60 D0 


63E 


60 


E7 


4C 


60 30 


63F 


34 


FC 


CC 


40 0F 


640 


6F 


E0 


D4 


60 01 


641 


10 


ED 


CC 


60 FF 


642 


6F 


60 


AC 


40 FF 


643 


66 


71 


0C 


60 FF 


644 


63 


99 


07 


20 0F 


645 


70 


EE 


AC 


60 FF 


646 


2E 


7E 


0C 


60 D0 


647 


2E 


78 


0C 


60 30 


648 


IE 


6E 


0C 


60 FF 


649 


73 


60 


CC 


60 01 


64A 


2C 


EA CC 


60 10 


64B 


68 


68 


07 


20 0F 



#ENDLP0 



1 - OR ZA 


4 - 


- 


BNK ALU 


R4 -> BNK 




4 


IB + AB 8 


3 12 


- 


MAR ALU 


R3+R12 -> R12 -; 


> MAR 


3 P 


1 - -S AB 8 


LB- 


S 


PSH - 


"L S R8 -> STK 




6 L 


IB OR DZ 


- 6 RR 


- 


ALU MD 


(MDtSR) -> R6 




6 


1 Q « AB 


6 L 


- 


- - 


R6 X L -> Q 




6 L Q 


IB OR DQ 


- 5 


s 


POP - 


STK OR -> R5 




5 


IB -+ ZA 


10 10 - 


- 


- - 


R10-1 -> R10 




8 


#REPLACE -Z 


- JMP 






GOTO REPLACE IF 


#0 




M[DA] : 


= (MASKS AND R5) 


DR 


(M[DA] AND 


NOT MASKS) / 






IB S AB 


7 5 


„ 


- - 


7 8 R5 -> R5 




5 7 


1 - OR ZA 


T - 


- 


BNK ALU 


T -> BNK 




T 


1 - OR ZA 


S - 


- 


MAR ALU 


S -> MAR 




S 


1 Q -XR ZA 


7 - _ 


- 


- - 


~R7 -> Q 




7 Q 


IB & DQ 


- 6 


- 


ALU MD 


MO S Q -> R6 




6 Q 


1 - OR AB 


5 6 


- 


B MD ALU 


R5 OR R6 -> MD 




5 6 


#ENDCASE T 


- JMP 






GOTO ENDCASE 







Informatik ETH Zuerich Micro-Code-Asssmbler 'MIA' 

4 3 2 10 LABEL K DST FCT RS C A B SHFT SP PC S E BD BS COMMENT 

» 1; (. PAINT, DEST := DEST OR SOURCE •) 

WHILE W > DO (» LOOP OVER THE WORDS OF A LINE 
. M[DA] ;= STKl OR R5; 

DA ;= DA + HORIZ; 
« STKl ;= M[DA]; 
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640 


2E 70 0C 60 FF 


64D 


65 CI 07 20 0F 


64E 


2E EA 0C 40 10 


64F 


2E 7E 0C 60 00 


650 


2E 78 0C 60 30 


651 


2E 7E 0C 60 08 


652 


60 E7 8C 60 30 


653 


2F E0 0C 40 01 



#PAINT 1 - OR ZA 10 - 

#ENDLP1 Z 
#WHILE1 1 - OR DA 5 - 

1 - OR ZA T - 
1 - OR ZA S - 
1 - OR ZA T - 
IB * AB 3 S 
1 - OR DZ - - 



- JMP 



S 



MD ALU 
BNK ALU 
MAR ALU 
BNK ALU 
MAR ALU 
ALU MD 



R10 

GOTO ENOLPl IF =0 

STK OR R5 -> MD 

T -> BNK 

S -> MAR 

T -> BNK 

R3*S -> S -> MAR 

MD -> STK 



5 
T 
S 

T 
3 S 



STK0 

SA 

R6 

R5 

W 



:= NOT MASK2 AND R6; 
= SA + HORIZ; 
= ROT(M[SA],SR); 
= STK0 OR (R6 AND HASK2); 

W - 1; 



END; (• WHILE ») 



654 


2E 68 00 60 D0 


655 


60 E7 4C 60 30 


656 


34 FC CC 40 0F 


657 


6F E0 D4 60 01 


658 


10 ED CC 60 FF 


659 


6F 60 AC 40 FF 


65A 


66 71 0C 60 FF 


65B 


64 E9 07 20 0F 



OR 



B 



-& 

OR 

& 

OR 



B 



B 

B -+ 

#WHILE1 



ZA 
AB 
AB 
DZ 

AB 
DQ 

ZA 
-Z 



12 



- 6 

6 L 

- 5 
10 10 



RR 



- JMP 



BNK ALU 


R4 -> BNK 


4 


MAR ALU 


R3+R12 -> R12 -> MAR 


3 P 


PSH - 


"L & R8 -> STK 


6 L 


ALU MO 


(MDtSR) -> R6 


6 


- - 


R6 & L -> Q 


6 L 


POP - 


STK OR Q -> R5 


5 Q 


- - 


R18-1 -> R10 
GOTO WHILEl IF #0 


8 



M[DA] := STKl OR (R5 AND MASKS) / 



65C 


70 EE AC 60 FF 


#ENDLP1 


IB & AB 7 


65D 


2E EA 0C 40 10 




1 - OR DA 5 


65E 


68 68 07 20 0F 




#ENDCASE T 



- - - - R7 & R5 -> R5 

- S MD ALU STK OR R5 -> MD 
JMP GOTO ENDCASE 



5 7 
5 



Informatik ETH Zuerich Micro-Code-Assembler 'MIA' 

4 3 2 10 LABEL K DST FCT RS C A B SHFT SP PC S E BD BS COMMENT 

2: (» INVERT, DEST := DEST XOR SOURCE «) 
. WHILE W > 8 DO (« LOOP OVER THE WORDS OF A LINE «) 

M[DA] := STKl XOR R5; 
DA ;= DA + HORIZ; 
STKl ;= H[DA]; 
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USED REGS 



65F 


2E 70 0C 69 FF 


#INVERT 


1 - 


OR ZA 


10 


- - 


— _ 


- - - 


R10 


8 


660 


66 Fl 07 20 0F 




#ENDLP2 2 






- JMP 




GOTO ENDLP2 IF =0 




661 


3A EA 0C 40 10 


#WHILE2 


I - 


XOR DA 


5 


_ 


_ _ _ 


S MD ALU 


STK XOR R5 -> MD 


5 


662 


2E 7E 0C 60 D0 




1 - 


OR ZA 


T 


- - 


_ - - 


- BNK ALU 


T -> BNK 


T 


663 


2E 78 0C 60 30 




1 - 


OR ZA 


S 


- - 


_ - - 


- MAR ALU 


S -> MAR 


S 


664 


2E 7E 0C 60 D0 




1 - 


OR ZA 


T 


- - 


— - 


- BNK ALU 


T -> BNK 


T 


665 


60 E7 8C 60 30 




1 B 


+ AB 


3 


8 - 


— - 


- MAR ALU 


R3+S -> S -> MAR 


3 


666 


2F E0 0C 40 01 




1 - 


OR DZ 


- 


- - 


— - 


S ALU MD 


MD -> STK 





SA := SA + HORIZ; 
STK0 ;= NOT MASK2 AND R6; 
R6 ;= RGT(M[SA],SR); 
R5 ;- STK0 OR (R6 AND MASK2); 
V ;= W - 1; 
END; (• WHILE ») 



667 


2E 68 0C 60 Da 


668 


60 E7 4C 60 30 


669 


34 FC CC 40 8F 


65A 


6F E0 D4 60 01 


66B 


10 ED CC 60 FF 


66C 


6F 60 AC 40 FF 


65D 


66 71 0C 60 FF 


66E 


66 19 07 20 0F 



1 - 

1 B 
1 - 
1 B 
1 



1 B 



OR 

+ 

-S 
OR 
& 



ZA 
AB 
AB 
DZ 
AB 



12 
6 
6 
L 



RR 



IB OR DQ - 5 



-+ ZA 10 10 



- BNK ALU 


R4 -> BNK 


- MAR ALU 


R3+R12 -> R12 


S B PSH - 


"L S R6 -> STK 


- ALU MD 


(MDtSR) -> R6 


- - - 


R6 g L -> Q 


S POP - 


STK OR Q -> R5 


- - - 


R10-1 -> R10 



-> MAR 



4 

3 P 

6 L 
6 

6 L Q 

5 Q 



#WHILE2 



JMP 



GOTO WHILE2 IF #0 



H[DA] ;= STKl XOR (R5 AND MASK3) / 



66F 


70 EE AC 60 FF 


#ENDLP2 


IB S AB 7 


670 


3A EA 0C 48 10 




1 - XOR DA 5 


671 


68 68 07 20 0F 




#ENDCASE T 



- 
MD 



ALU 



JMP 



R7 & R5 -> R5 
STK XOR R5 -> 
GOTO ENDCASE 



MD 



5 7 
5 



Inforraatik ETH Zuerich Micro-Code-Assembler 'MIA' 
4 3 2 18 LABEL K DST FCT RS C A B SHFT SP PC S E BD BS COMMENT 

3: (« ERASE, DEST ;= NOT SOURCE AND DEST «) 

• WHILE W > DO (« LOOP OVER THE WORDS OF A LINE 

• M[DA3 := NOT R5 AND STKl; 
DA := DA + HORIZ; 

STKl := M[DA]; 
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USED REGS 



672 


2E 78 8C 68 FF 


#ERASE 


1 - 


OR 


ZA 8 


18 


_ - 


— _ 


- - - 


R10 


8 


673 


68 31 87 28 8F 




8 #ENDLP3 


Z 






- 3MP 




GOTO ENDLP3 IF =0 




674 


0F E8 00 48 FF 


#WHILE3 


1 Q 


OR 


DZ 8 


_ 


_ 


_ _ _ 


S 8 POP - 


STK -> 


Q 


675 


34 6A 8C 68 10 






-8 


AQ 8 


5 


- - 





- MD ALU 


~R5 8 Q -> MD 


5 


676 


2E 7E 8C 60 D0 




1 - 


OR 


ZA 


T 


. _ 


. - _ 


- BNK ALU 


T -> BNK 


T 


677 


2E 78 8C 68 38 




1 - 


OR 


ZA 8 


S 


- - 


. . „ 


- MAR ALU 


S -> MAR 


S 


678 


2E 7E 8C 68 D0 




1 - 


OR 


ZA 3 


T 


- - 


— . 


- BNK ALU 


T -> BNK 


T 


679 


68 E7 8C 68 30 




1 B 


+ 


AB 8 


3 


S - 





- MAR ALU 


R3+S -> S -> MAR 


3 


67A 


2F E8 0C 40 01 




1 - 


OR 


DZ 8 


- 


- - 





S ALU MD 


MD -> STK 





SA ;= SA + HORIZ; 
STK0 := NOT MASK2 AND R6; 
R6 :- ROT(M[SA],SR); 
R5 := STK0 OR (R6 AND MASK2); 
W := W - 1; 
END; (« WHILE «) 



67B 


2E 68 0C 60 D8 


67C 


60 E7 4C 60 38 


67D 


34 FC CC 40 0F 


67E 


6F E0 D4 60 01 


67F 


10 ED CC 68 FF 


680 


6F 68 AC 48 FF 


681 


66 71 8C 68 FF 


682 


67 49 87 28 8F 



OR 



OR 



OR 



ZA 
AB 
AB 8 
DZ 
AB 
DO 
ZA 



3 12 
L 6 

- 6 
6 L 

- 5 
10 18 



RR - 



#WHILE3 



JMP 



- 8 BNK ALU 


R4 -> BNK 


4 


- MAR ALU 


R3+R12 -> R12 -> MAR 


3 P 


S PSH - 


~L & R6 -> STK 


6 L 


- 8 ALU MD 


(MDtSR) -> R6 


6 


- - - 


R6 8 L -> 


B L 


S POP - 


STK OR Q -> R5 


5 Q 


- - - 


R10 - 1 -> Ri0 
GOTO WHILES IF #0 


8 



M[DA] ;= NOT (MASK3 AND R5) AND STKl 



683 70 EE AC 68 FF 

684 0F E8 8C 48 FF 

685 34 6A 8C 68 10 



#ENDLP3 



1 B 
1 
1 - 



OR 
-8 



A3 
DZ 
AQ 8 



7 5 



- - - R7 8 R5 -> R5 


5 


S 8 POP - STK -> 


Q 


- MD ALU ~R5 & -> MD 


5 



END; (• CASE «); 
SWORD := SWORD + SBMW; 
DWORD := DWORD + DBMW; 
END; (» WHILE OH > •) 



686 


2E 7E 8C 68 D8 


#ENDCASE 


1 - 


OR ZA 8 


T - - 


_ - „ 


- BNK ALU 


T -> BNK 


T 


687 


2E 78 8C 60 38 




1 - 


OR ZA 8 


S - - 





- MAR ALU 


S -> MAR 


S 


688 


6F E0 AC 40 FF 




1 B 


OR DZ 


- 5 - 


. — 


S POP - 


STK -> R5 


5 


689 


6F El 4C 40 FF 




1 B 


OR DZ 8 


- 12 - 


- — 


S 8 POP - 


STK -> R12 


P 


68A 


40 F4 4C 40 0F 




1 B« 


+ AB 8 


12 2 - 


_ - - 


S 8 PSH - 


R12 -> STK, R12+R2 -> R 


2 P 


68B 


40 EA 2C 48 8F 




1 B« 


+ AB 8 


5 1 - 


- - - 


S PSH - 


R5 -> STK, R5 - Rl -> R 


1 5 


68C 


61 98 87 28 8F 




8 #WHILE.DH T 




- JMP 




END BIG WHILE 




68D 


5C 88 83 28 0F 


lENDBBLT 


8 EXITBBLT T 




- JSR 




RESTORE REGS 




68E 


0F E8 BF E8 83 




1 Q 


OR DZ 8 


_ - _ 


- S JMP 


- ALU IR4 


JMAP 






POP(S) 
POP(P) 
POP(H) 



4 3 2 1 



Informatik ETH Zuerich Micro-Code-Asserabler 'HIA' 
LABEL K DST FCT RS C A B SHFT SP PC S E BD BS COMMENT 



POP(G) 
POP(L) 
POP(M) 
POP(T) 
END BBLT 
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USED REGS 



4 3 2 10 



Informatik ETH Zuerich Micro-Code-Assembler 'MIA' 
LABEL K DST FCT RS C A B SHFT SP PC S E BD BS COMMENT 
PROCEDURE REPL; (• PATTERN TO BLOCK TRANSFER 
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USED REGS 













« 




INIT; 
















« 




MASK3 ;= MSK(0,(DX+DW) MOD 16) 






T : MASK3 
















TEMPORARY : 


7 








S 




SR ;= DX MOO 16; 








3 : DX MOD 16(10) 








« 




MASKl ;= COMPL(MSK(0,SR)); 






G ; MASKl 


68F 


5A 48 03 20 


0F 


REPL 





#INIT T 


- JSR 






INIT 


690 


2E 6A 0C 60 


FF 




1 


- OR ZA 5 


- 


- - 


- 


R5 


691 


7F 21 07 20 


0F 







#ENDREPL Z 


- JMP 






IF LENGTH = 


692 


20 ED 6C 60 


40 






- * AB 8 6 


H 


- SR 


ALU 


R6 + H -> SR 


693 


6F E0 FC 70 


08 






B OR DZ - 


7 MR 


- 1 




MSK(0,SR) -> 7 


694 


72 EC 6C 79 


0F 






B & DA 6 


3 


- 1 17 




R6 & 17 -> R3 


695 


2E 66 0C 60 


40 






- OR ZA 3 


- _ _ — 


- SR 


ALU 


R3 -> SR 


696 


7F El BC 70 


00 






B -XR DZ 8 - 


G MR 


- 1 




~MSK(0,SR) -> G 








* 




WORDS := (DW * 


(DX MOD 16)) DIV 16; 




H : WORDS 








« 




DWORD ;= BMA + 


DX DIV 16 + 






L ; DWORD 



697 60 E7 6C 60 FF 

698 53 77 54 64 00 

699 53 6C 24 64 00 
69A 16 F8 0C 70 03 
69B 60 62 2C 60 FF 



69C 


68 C5 


0C 60 FF 


69D 


08 Dl 


2C 60 FF 


69E 


6E 69 


EC 60 FF 


69F 


3C 98 


03 20 0F 


6A0 


60 63 


CC 60 FF 


6A1 


06 72 


0C 60 FF 


6A2 


3C 98 


03 20 0F 


6A3 


60 70 


2C 60 FF 


6A4 


0E 6A 


0C 60 FF 


6A5 


3C 98 


03 20 0F 


6A6 


6E 6F 


EC 60 FF 


6A7 


6D 60 


EC 60 FF 


6A8 


72 F8 


4C 70 03 



(BMHEIGHT-DH-DY) « BMWIDTH; 
ENDWORD := DWORD * (DH-1)»BMWIDTH; 9 
CW := SOURCE. COUNT«BMWIDTH; 7 

DBANK ;= BMA MOD 4; 2 

- - - R3 + H -> H 



ENDWORD 

CW 

DBANK 



1 B * 


AB 


3 


H 


- - 


1 B» X 


DQ 


H 


H 


R 4 


1 B» S 


DO 


6 


1 


R 4 


1 Q -S 


DA 


S 


- 


- - 


1 B + 


AQ 


1 


1 


- - 


1 B - 


AB 1 


2 


10 


_ 


1 - 


AB 1 


10 


11 


- - 


1 B OR 


ZA 


4 


T 


- - 


#MUL16 


T 








1 B + 


AQ 


1 


L 


- - 


1 -* 


ZA 


11 


_ 


_ 


#MUL16 


T 








1 B * 


AQ 


L 


11 


- - 


1 OR 


ZA 


5 


_ 


_ 


#MUL1B 


T 








IB OR 


ZA 


7 


T 


- - 


IB OR 


ZQ 


- 


7 


- - 


1 B & 


DA 


S 


2 


- - 



- - ALU ALU (Ht4) 8 Q -> H 

- - ALU ALU (R6T4) 8 Q -> Rl 

- - 1 3 "3 & S -> 

- - 8 - - * Rl -> Rl 

- - - - R2 - R10 -> RIB 

- - - - R10 - Rll -> Q 

- - - - R4 -> T 

JSR • T -> Q (-2-) 

- - - - Rl + Q -> L 

- - - - Rll - 1 -> Q 

JSR Q « T -> Q (-2-) 

- - - - L + Q -> Rll 

- - - - R5 -> Q 

JSR «. T -> Q (-2-) 

- - - - R7 -> T 

- - - - Q -> R7 

- - 1 3 3 S S -> R2 



6 H 
7 

3 6 
3 
G 



3 H 
H Q 

1 6 Q 

S Q 

1 

2 8 

8 M Q 

4 T 

1 L 
M Q 

M L Q 

5 Q 

7 T 

7 Q 

2 S 



4 3 2 1 
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USED REGS 



FOR I := 1 TO LENGTH DO (»• LOOP OVER THE WORDS OF THE PATTERN ») 
BITPAT := RGT(SOURCE,DGTS[I],SR); 3 : BITPAT 
DWD ;= DWORD; 1 ; DWD 



OAQ 42 55 4C 63 30 
BAA 6F E8 74 60 01 
6AB 6E 7C 2C 68 FF 



#FORI 



1 B» 
1 B 

1 B 



+ ZA 1 12 12 - 
OR DZ - 3 RR 

OR ZA 8 L 1 - 



- MAR ALU R12 -> MAR, R12+1 -> Rl 

- ALU MD (MDtSR) -> R3 

- ~ - L -> Rl 



WHILE DWD <= ENDWORD DO (* LOOP OVER THE LINES OF THE DEST BLOC 
CORRESPONDING TO THE ACTUAL PATTERN WORD * 











« 






DA := DWD; 
















« 






W ;= WORDS 


1 














« 
» 






R6 := BITPAT 


AND 


MASKl; 


6AC 


28 E3 2C 


60 


FF 


#WHILE 


1 




- AB 1 


11 






6AD 


6F 62 07 


20 


BF 







#ENDUHILE C 






- JMP 


6AE 


2E 64 0C 


60 


00 




1 


- 


OR ZA 2 


- 


- 


_ - _ 


6AF 


6E 63 8C 


60 


38 




1 


B 


OR ZA 1 


S 


- 





6B0 


6E 66 CC 


60 


FF 




1 


B 


OR ZA 3 


6 


_ 


_ _ _ 


6B1 


70 FA CC 


60 


FF 




1 


B 


S AB 8 G 


6 


- 


_ _ _ 


6B2 


8F E0 0C 


60 


01 


ft 


1 


Q 


OR DZ - 
CASE MODE 


OF 






6B3 


26 C0 0C 


70 


02 




1 


_ 


-+ DA 1 


_ 


_ 


_ _ _ 


6B4 


6D 71 07 


20 


0F 







#INVERT2 Z 






- JMP 


6B5 


6E 58 47 


20 


0F 




8 


#ERASE2 -F 






- JMP 


6B6 


2E 60 0C 


60 


FF 




1 


- 


OR ZA 


- 


- 


_ — 


6B7 


6C 99 07 


20 


0F 




#PAINT2 -Z 






- JMP 



S 


DA 


8 


y 


6 


R5 


Q 


M[DA] 



- - Rl - Rll - 1 

GOTO ENDWHILE IF > 
BNK ALU R2 -> BNK 
MAR ALU Rl -> S -> MAR 

H -> R18 
- - R3 -> R5 
- - G S R6 -> R6 
ALU MD MD -> 



1 2 





R3 - 2 




GOTO INVERT2 IF =0 




GOTO ERASE2 IF >8 


- 


R0 




GOTO PAINT2 IF #0 


) 





0: (« REPLACE, DEST ;= PATTERN 
R6 := R6 OR (NOT MASKl AND M[DA]); 
WHILE W > DO (« LOOP OVER THE WORDS OF A LINE ») 

M[DA] ;= R6; (« OF THE DEST BLOCK *) 

DA ;= DA + 1; 

R6 ;= BITPAT; 

W := W - 1; 
END; 



6B8 


14 7A 0C 60 FF 


#REPLAC£2 10 -S AQ 


G 


- 


6B9 


6C 6C CC 60 FF 




IB OR AQ 


6 


5 


BBA 


6E 77 0C 60 FF 




IB OR ZA 


H 


18 


6BB 


6C 21 47 20 0F 




#ENDWHL4 FZ 






6BC 


2E 6C 8C 68 10 


#WHILE4 


1 - OR ZA 


6 


_ 


6BD 


2E 64 0C 68 D0 




1 - OR ZA 


2 


- 


6BE 


42 59 8C 58 30 




1 B. + ZA 1 


S 


S 


6BF 


6E 66 CC 60 FF 




IB OR ZA 8 


3 


6 


6C0 


66 71 0C 60 FF 




IB -+ ZA 


18 


10 


6C1 


6B eg 07 20 0F 




#WHILE4 -Z 







- 



JMP 



6C2 10 FE CC 68 FF 
6C3 2E 64 8C 68 D0 
6C4 2E 78 0C 60 30 



#ENDWKL4 1 Q S 
1 - OR 
1 - OR 



MD ALU 

BNK ALU 
MAR ALU 



- JMP 

:= MASK3 AND R6; 

R6 ;= M[DA] & NOT MASKS; 

M[DA] ;= R6 OR / 

AB0T6- -0- - 

ZA 2 - - BNK ALU 

ZA S - - MAR ALU 



~6 « -> 
R6 OR Q -> R5 

H -> R10 

GOTO ENDUHL4 IF <=0 

R5 -> MD 

R2 -> BNK 

S -> MAR, S^l -> S 

R3 -> R6 

R10 - 1 -> R10 

GOTO WHILE4 IF #0 



T S R6 -> 
R2 -> BNK 
S -> MAR 



P 
3 
1 L 



1 M 

2 

1 S 

3 6 
6 G 
Q 



G Q 
6 Q 
8 H 



6 
2 

S 

3 6 
8 



6 T Q 

2 

S 



4 3 2 10 



6C5 


7E 7E CC 60 FF 


6C6 


72 EC CC 63 01 


6C7 


2C 6C 00 60 10 


6C8 


6F 28 07 20 0F 



Informatik ETH Zuerich Micro-Code-Assembler 'MIA' 

LABEL K DST FCT RS C A B SHFT SP PC S E BD BS COMMENT 

IB -XR ZA T 6 - - - ~0 XOR T -> R6 

IB S DA 6 6 - ALU MD MD S R6 -> R6 

1 - OR AQ 8 6 - - MD ALU R6 OR -> MD 

#ENDCAS T - JMP GOTO ENDCASE 

1: (» PAINT, DEST := DEST OR PATTERN «) 

* WHILE W > DO 

* M[DA] := R6 OR M[DA]; 

* DA ;= DA + 1; 

« R6 := BITPAT; Q : M[DA] 

W := V - 1; 
END; 
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USED REGS 

6 T 
6 
6 Q 



6C9 


6E 


77 


00 


60 


FF 


#PAINT2 


1 


B 


OR 


ZA H 


10 


- 


- 


- 


U -> R10 


8 H 


6CA 


6D 


41 


47 


20 


0F 




#ENDWHL5 FZ 


- JMP 








GOTO ENDWLS IF <=8 




6CB 


20 


60 


00 


60 


10 


#WHILE5 




- 


OR 


AQ 6 


_ _ _ _ _ 


- 


MD 


ALU 


R6 OR -> MD 


6 Q 


6CC 


2E 


64 


00 


60 


D0 






- 


OR 


ZA 2 


_ _ — _ 


- 


BNK 


ALU 


R2 -> BNK 


2 


6CD 


42 


59 


8C 


60 


30 






B« 


+ 


ZA 1 S 


S 


- MAR 


ALU 


S ~> MAR, S-^1 -> S 


S 


6CE 


2E 


64 


00 


60 


D0 






- 


OR 


ZA 2 


- - - — 


- 


BNK 


ALU 


R2 -> BNK 


2 


6CF 


2E 


78 


0C 


60 


30 






- 


OR 


ZA S 


_ _ . — 


- 


MAR 


ALU 


S -> MAR 


S 


6D0 


6E 


66 


00 


60 


FF 






B 


OR 


ZA 3 


6 


- 


- 


_ 


R3 -> R6 


3 6 


6D1 


0F 


E0 


00 


60 


01 






Q 


OR 


DZ - 


. . _ _ _ 


- 


ALU MD 


MD -> Q 





6D2 


65 


71 


00 


60 


FF 






B 


_ + 


ZA 8 10 


10 


- 8 


- 


- 


R10 - 1 -> R10 


8 


6D3 


60 


B9 


07 


20 


0F 







#VHILE5 


-z 


- JMP 








GOTO WHILES IF #0 
















* 








R6 : = 


MASK3 AND R6; 
























« 








M[DA] 


;= R6 OR M[DA] 


/ 










6D4 


70 


FE 


00 


60 


FF 


#ENDWHL5 


1 


B 


& 


AB T 


6 


- 


„ 


_ 


T S R5 -> R6 


6 T 


6D5 


20 


60 


00 


60 


10 




1 


- 


OR 


AQ 6 


- - - - - 


- 


MD 


ALU 


R6 OR Q -> MD 


6 Q 


6D6 


6F 


28 


07 


20 0F 







#ENDOAS 


T 


- JMP 








GOTO ENDCASE 





2; (• INVERT, DEST := DEST XOR PATTERN ») 
WHILE W > DO 

M[DA] := R6 XOR M[DA]; 

DA := DA + 1; 

R6 := BITPAT; Q : M[DA] 

W := W - 1; 
END; 



6D7 


6E 77 00 60 FF 


608 


6E 21 47 20 0F 


6D9 


38 60 00 60 IB 


6DA 


2E 64 80 68 D8 


6DB 


42 59 80 60 38 


6DC 


2E 64 80 60 D0 


ODD 


2E 78 0C 68 38 


DDE 


6E 66 CO 68 FF 


6DF 


0F EB BO 68 81 


6E0 


66 71 00 60 FF 


6E1 


6D 99 07 20 0F 



#INVERT2 IB OR ZA 8 H 18 
#ENDWHL5 FZ 



#WHILE6 



B» 



XOR AQ 8 
OR ZA 8 
+ ZA 1 



OR 
OR 
OR 



8 #WHILE6 



ZA 8 
ZA 
ZA 
DZ 
ZA 
-Z 



JMP 



10 10 - - 



JMP 



8 - - 


H -> R10 

GOTO ENDWHLS IF <=0 


8 


8 MD ALU 


R5 XOR -> MD 


6 


BNK ALU 


R2 -> BNK 


2 


MAR ALU 


S -> MAR, S+1 -> S 


S 


BNK ALU 


R2 -> BNK 


2 


MAR ALU 


S -> MAR 


S 


- - 


R3 -> R6 


3 


ALU MD 


MD -> Q 





- - 


R10 - 1 -> R10 
GOTO WHILE6 IF #0 


8 



R6 := MASK3 AND R6; 
M[DA] ;= R6 XOR M[DA] / 



6E2 70 FE OC 60 FF 
6E3 38 60 00 60 10 
6E4 6F 28 07 28 BF 



lENDWHLe IB 8 AB T 
1 - XOR AQ 6 
8 lENDOAS T 

$ 



- MD ALU 



JMP 



T S R6 -> R5 
R6 XOR -> MD 
GOTO ENDCASE 



6 T 
6 Q 



Infomatik ETH Zuerich Micro-Code-Assembler 'NIA' 
4 3 2 10 LABEL K DST FCT RS C A B SHFT SP PC S E BD BS COMMENT 

• 3: (« ERASE, DEST ;= NOT PATTERN AND DEST *) 

• WHILE W > DO 

M[DA] := NOT R6 AND M[DA]; 
» DA := DA + 1; 

R6 := BITPAT; Q : M[DA] 

W ;= V - 1; 

• END; 
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USED REGS 



6E5 6E 77 00 60 FF 
6E6 BF 01 47 20 BF 



#ERASE2 IB OR ZA H 10 - 

#ENDWHL7 FZ - JMP 



6E7 


34 6C 00 60 10 #yHILE7 1 - 


-8 


AQ 


6 


6E8 


2E 64 00 60 D0 


1 - 


OR 


ZA 


2 


6E9 


42 59 80 60 30 


1 B« 


+ 


ZA 1 


S 


6EA 


2E 64 00 60 D0 


1 - 


OR 


ZA 


2 


6EB 


2E 78 00 60 30 


1 - 


OR 


ZA 


S 


6EC 


6E 66 00 60 FF 


1 B 


OR 


ZA 


3 


6ED 


0F E0 00 60 01 


1 Q 


OR 


DZ 


- 


6EE 


66 71 00 60 FF 


1 B 


- + 


ZA 


If 


6EF 


6E 79 07 20 0F 


#WHILE7 


-Z 





10 10 



JMP 



- - 


H -> R10 

GOTO ENDWHL7 IF <=0 


8 


MD ALU 


~R6 X Q -> MD 


6 


BNK ALU 


R2 -> BNK 


2 


MAR ALU 


S -> MAR, S+1 -> S 


S 


BNK ALU 


R2 -> BNK 


2 


MAR ALU 


S -> MAR 


S 


- - 


R3 -> R6 


3 


ALU MD 


MD -> Q 


Q 


- - 


R10 - 1 -> R10 

GOTO WHILE7 IF #0 


8 



RB ;= MASKS AND R6; 
K[DA] ;= NOT R5 AND M[DA] 



6F0 70 FE CC 60 FF 
6F1 34 BC 0C 60 10 



#ENDyHL7 1 B 
1 - 



8 AB T 
-8 AQ 6 



6 - 



- - T 8 R6 -> R6 
MD ALU ~R6 8 Q -> MD 



6 T 
6 Q 



END; (• CASE ») 
DWD ;= OW + DWD; 



6F2 


2E 64 00 60 D0 


#ENDCAS 


1 - OR 


ZA 2 - 


6F3 


2E 78 0C 60 30 




1 - OR 


ZA S - 


6F4 


60 EE 20 60 FF 




1 B + 


AB 7 1 


6F5 


6A OA 07 20 0F 




#WHILE 


-C 



- JMP 



BNK ALU R2 -> BNK 
MAR ALU S -> MAR 
8 - - R7 + Rl -> Rl 
GOTO WHILE 



2 

S 

1 7 



6F6 


60 E9 CO 60 FF 


#ENDWH 


[LE 


IB + AB 


6F7 


7F 22 07 20 0F 






#ENDREPL 


6F8 


65 6A AC 60 FF 






IB -+ ZA 


BF9 


6A 99 07 20 0F 


,_. 




#FORI -Z 


BFA 


7F 28 07 20 0F 






#ENDREPL T 



END; (» WHILE DWD < ENDWORD ») 
DWORD := DWORD + BMWIDTH; 
END; (• FOR I ..« ») 

4 L - - 

- JMP 

5 5 - - 

- JMP 

- JMP 



R4 + L -> L 

GOTO ENDREPL IF OVERFLO 

R5 - 1 -> R5 

GOTO FORI IF #0 

GOTO ENDREPL 



4 L 



Informatik ETH Zuerich Micro-Code-Assembler 'MIA' 
4 3 2 18 LABEL K DST FCT RS C A B SHFT SP PC S E BD BS COMMENT 

FLOATING POINT ROUTINES (NW 5.11.80) 



I S I EXPO I 

+ + + _ 

8 1-8 



MANTISSA 
9-31 



SIGN 
EXPO 
MANT 



= POSITIVE, 1 = NEGATIVE 

WEIGHT = 280B 

LEADING ONE BIT IS OMITTED 
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USED REGS 



6FB 6F E0 44 71 81 

6FC 6F E8 07 20 8F 



6FD 
6FE 
6FF 
700 
701 
702 
703 
784 
785 
706 
707 
708 
709 
70A 
71 



72 64 
BF E0 
2C FE 
74 21 
78 E4 
7B E0 
6F E0 
2C E8 
74 01 
72 E8 
72 E2 
72 E0 
72 E2 
6E E8 



60 FF 
40 FF 
2C 60 FF 
07 20 0F 
60 FF 
48 FF 
eC 48 FF 
AC 60 FF 
07 20 BF 
79 FF 
79 FF 
8C 70 7F 
CC 70 7F 
84 79 01 



4C 
20 



2C 
AC 



44 
64 



■0B 6E EC C4 79 01 



FSUB 



FADO 
#A1 



1 B OR 
8 #A1 



1 B 
1 B 
1 - 
8 #Y8 
1 B 
1 B 
1 B 
1 - 
8 #X0 
1 B 
1 
1 
1 
1 
1 



& 

OR 

OR 



DZ 

T 

ZA 
OZ 8 
AB 



XOR AB 
XOR DZ 8 



OR 
OR 



OR 
OR 



DZ 8 
AB 
Z 
DA 
DA 
DA 8 
DA 8 
DA 8 
DA 8 



2 R 1 



XE.XH.XL IN R2,R4,R5 
YE,YH,YL IN R3,R6,T 



JMP 



JMP 



- 3HP 



R 11 
R 11 



R 11 
R 11 



- 1 


1 


Itl -> R2 
GOTO Al 


2 


- - 


- 


9 -> R2 


2 


S POP 


- 


STK -> Rl YH 


1 


- B - 


■~ 


T OR Rl 

IF =0 GOTO Y0 


1 T 


- - 


- 


R2 XOR Rl -> Rl 


1 2 


S POP 


- 


STK -> R5 XL 


5 


S POP 


- 


STK -> R0 XH 





- - 


- 


R0 OR R5 

IF =0 GOTO X0 


8 5 


- 1 


377 


(377i9)SR0 -> R2 XE 


2 


- 1 


377 


(377tg)SRl -> R3 YE 


1 3 


- 1 


177 


177SR0 -> R4 XH 


4 


- 1 


177 


177&R1 -> R5 YH 


1 6 


- 1 


1 


(ItO) OR R4 -> R4 


4 


- 1 


1 


(lt9) OR R6 -> R6 


6 



70C 


64 


C6 


4C 


60 FF 




1 B 


- + 


AB 1 


3 


2 


- 


- 


- - 


- - 


R2-R3 -> R2 ZE 


2 3 


78D 


71 


48 


47 


20 0F 




#A3 




-F 










- JMP 




IF <0 THEN (XE<YE) 




70E 


0E 


6A 


0C 


68 FF 




1 Q 


OR 


ZA 


5 


- 


- 


- 


— 


- - 


R5 -> Q 


5 Q 


70F 


82 


68 


8C 


60 FF 


#A2 


1 BOR 


+ 


ZA 


4 


4 


- 


- 


— 


- - 


REP (R4,Q)/2 X 


4 


710 


62 


E4 


44 


79 01 




1 B 


+ 


DA 8 


2 


2 


R 


11 


— 


- 1 


1 R2+(lt9) -> R2 


2 


711 


70 


F9 


07 


20 0F 




#A2 




-Z 










- JMP 




UNTIL R2=0 




712 


6D 60 


AC 


60 FF 




1 B 


OR 


ZQ 


- 


5 


- 


- 


— 


- - 


Q -> R5 


5 Q 


713 


71 


B8 


07 


20 0F 




#A5 




T 










- JMP 








714 


71 


Bl 


07 28 0F 


#A3 


#A5 




Z 










- JMP 




ELSIF >0 THEN (XE>XY) 




715 


60 


E4 


6C 


60 FF 




1 B 


+ 


AB 


2 


3 


- 


- 


. ,. 


- - 


R3*R2 -> R3 


2 3 


716 


0E 


7E 


0C 


60 FF 




1 Q 


OR 


ZA 


T 


- 


- 


- 


- - 


- - 


T -> 


T Q 


717 


82 


6C 


CC 


60 FF 


#A4 


1 BQR 


+ 


ZA 


6 


6 


- 


- 


- - 


- - 


REP (R6,Q)/2 Y 


6 Q 


718 


66 


C4 


44 


79 81 




1 B 


- + 


DA 1 


2 


2 


R 


11 


- - 


- 1 


1 R2-(li9) -> R2 


2 


719 


71 


79 


07 


20 0F 




#A4 




-Z 










- JMP 




UNTIL R2=0 




71A 


6D 


61 


EC 


60 FF 




1 B 


OR 


ZQ 


- 


T 


- 


- 


- - 


- - 


Q -> T 
END 


T Q 


71B 


2E 


60 


0C 


60 FF 


#A5 


1 - 


OR 


ZA 


8 


- 


- 


- 


— 


- - 


R0 SIGN(X) 





71C 


71 


F8 


47 


20 8F 




8 #A6 




-F 










- JMP 




IF <0 THEN 




71D 


6A 


4A 


AC 


60 FF 




1 B 


- 


ZA 1 


5 


5 


- 


- 


— 


- - 


-R5 -> R5 


5 


71E 


6A 


08 


8C 


60 FF 




1 B 


- 


ZA C 


4 


4 


- 


- 


_ w 


- - 


-R4 -> R4 

END 


4 


71F 


2E 


62 


0C 


60 FF 


#A6 


1 - 


OR 


ZA 


1 


- 


- 


- 


- - 


- - 


Rl SIGN(Y) 


1 


728 


72 


48 


47 


20 0F 




#A7 




-F 










- JMP 




IF <0 THEN 




721 


08 


CB 


EC 60 FF 




1 Q 


- 


AB 1 


5 


T 


- 


- 


— 


- - 


R5-T -> 


5 T Q 


722 


68 


88 


CC 


68 FF 




1 B 


- 


AB C 


4 


6 


- 


- 


— 


- - 


R4-R6 -> R6 


4 6 


723 


72 


68 


07 


20 0F 




#A8 




T 










- JMP 




ELSE 





4 3 2 10 



Informatik ETH Zuerich 
LABEL K DST FCT RS G A 



724 


00 EB EC 60 FF 


#A7 


1 Q 


■S" 


AB 5 T 


725 


60 88 CC 60 FF 




1 B 


+ 


AB C 4 6 



726 


2C 


6C 


0C 


60 FF 


727 


74 


41 


07 


20 0F 


728 


72 


EC 


04 


71 01 


729 


72 


08 


47 


20 0F 


72A 


09 


40 


0C 


60 FF 


72B 


6A 


0C 


CC 


60 FF 


72C 


26 


CC 


04 


78 01 


72D 


73 


30 


47 


20 0F 


72E 


82 


6C 


CC 


60 FF 


72F 


6D 


61 


EC 


60 FF 


730 


62 


E6 


64 


79 01 


731 


73 


C8 


47 20 0F 


732 


3E 


48 


07 


28 BF 


733 


6D 


61 


EC 


60 FF 


734 


22 


6C 


0C 


60 FF 


735 


73 


A0 


17 


20 0F 


736 


66 C6 64 


79 01 


737 


60 


FF 


EC 


60 FF 


738 


60 


8C 


CC 


60 FF 


739 


73 


68 


17 


20 0F 


73A 


2E 


66 


0C 


60 FF 


73B 


74 


40 


47 


20 0F 


73C 


72 


EC 


CC 


70 7F 


73D 


6C 


E6 


CC 


68 FF 


73E 


2C 


E0 


CC 


40 0F 


73F 


0F 


E0 


0F 


E0 03 


740 


2E 


62 


0C 


40 0F 


741 


0F 


E0 


0F 


E0 03 


742 


6F 


El 


EC 


40 FF 


743 


0F 


E0 


0F 


E0 03 


744 


72 


61 


EC 


40 0F 


745 


0F 


E0 


0F 


E0 03 



#A8 



#A9 



#A11 



#A12 



#A13 



#X0 



#Y0 



#ZERO 



ZE,ZH,ZL IN R3,R6,Q 



1 - OR 


AQ 


6 


- 


8 #ZERO 


Z 






1 B 8 


DA 


6 





8 #A9 


-F 






1 Q - 


ZQ 1 


- 


- 


1 B - 


ZA C 


5 


6 


1 - -+ 


DA 1 


6 


.. 


8 #A18 


F 






1 BQR * 


ZA 8 


6 


5 


1 B OR 


ZQ 8 


- 


T 


1 B + 


DA 8 


3 


3 


#A13 


-F 






TRAP(6) 


T 






IB OR 


ZQ 8 


- 


T 


1 - + 


ZA 


6 


- 


#A12 


H 






1 B -+ 


DA 1 


3 


3 


1 B + 


AB 8 


T 


T 


1 B + 


AB C 


6 


6 


#A11 


-H 







1 - OR ZA 8 3 

#ZERO F 

IB 8 DA 8 6 

IB OR AB 3 

1 - OR AB 8 
1 Q OR DZ 8 - 



1 - 

1 Q 

1 B 
1 



1 B 
1 



OR 
OR 



8 
OR 



DZ 8 
DZ 8 



ZA 8 
DZ 



OR ZA 1 - 
OR DZ 8 - - 



Micro-Coda-Assembler 'MIA' 
SHFT SP PC S E BD BS COMMENT 



R 1 



JMP 
JMP 



R 10 - 



R 11 - 



- 


■ 1 


JMP 




~ 


- 


- 


- 


- 


- 1 


JMP 




JMP 





JMP 



R 11 



- - 



- JMP 



JMP 



S JMP 



- 1 

- 
S 

- 



177 

PSH - 
ALU IR4 



R5+T -> g 
R4+R6 -> R6 
END 
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USED REGS 

5 T Q 
4 6 



R6 OR 

IF Z=0 GOTO ZERO 
(ltl)&R6 -> R0 SIGN 
IF Z<8 THEN 

-0 -> Q 

-RB -> R6 
END 

R6 - 400 NORMALIZE 
IF >=8 THEN 

(R6,Q)/2 

Q -> T 

R3+(lt9) -> R3 ZE 



IF 
ELSE 
Q - 
R6 



>=0 OVERFLOW 



> T 



IF -H THEN 
REP R3-(lt9) 
2«T -> T 
2«'R6 -> R6 
UNTIL H 
END 

R3 ZE 
IF <8 GOTO ZERO 
END 

1778R6 -> R6 
R3 OR R5 -> RS 
R0 OR R6 -> STK ZH 
JMAP 



> R3 



- - S PSH - Rl -> STK 
S JMP - ALU IR4 JMAP 

- - S POP - STK -> T 
S JMP - ALU IR4 JMAP 



- - S PSH - -> T -> STK 
S JMP - ALU IR4 JMAP 



6 Q 



6 















Informatik ETH 


Zuerich 






Micro- 


:ode 


-A 


sse 


mbl 


3r '^' 


lA' 
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4 


3 


2 


1 





LABEL K DST 


FCT 


RS 


A 


B 


SHFT SP PC 


S 


E 


BD 


BS 


COMMENT 


USED REGS 


746 


6E 


7E 


EC 


60 


FF 


FMUL 1 B 


OR 


ZA 


T 


7 


_ 


_ _ 


_ 


_ 





_ 


- 


T -> R7 


YL 


7 T 


747 


6F 


E0 


CC 


40 


FF 


1 B 


OR 


DZ 


- 


6 


- 


- - 


- 


S 





POP 


- 


STK -> R6 


YH 


6 


748 


6F 


E0 


AC 


40 


FF 


1 B 


OR 


DZ 8 


- 


5 


- 


- - 


- 


s 





POP 


- 


STK -> R5 


XL 


5 


749 


6F 


E0 


8C 


40 


FF 


1 B 


OR 


DZ 8 


- 


4 


- 


— 


- 


s 





PGP 


- 


STK -> R4 


XH 


4 


74A 


2C 


E8 


AC 


60 


FF 


1 - 


OR 


AB 


4 


5 


- 


-. - 


- 


- 





- 


- 


R4 OR R5 


X 


4 5 


74B 


74 


41 


07 


20 


0F 


#ZERO 


Z 








- 


JMP 










IF X=0 GOTO 


ZERO 




74C 


2C 


EC 


EC 


60 


FF 


1 - 


OR 


AB 8 


6 


7 


- 


- - 


- 


- 





- 


- 


R6 OR R7 


Y 


6 7 


74D 


74 


41 


07 


28 


eF 


#ZERO 


Z 








- 


JMP 










IF Y=0 GOTO 


ZERO 




74E 


38 


E8 


CC 


40 


0F 


1 - 


XOR 


AB 


4 


6 


_ 


_ _ 


_ 


s 


e 


PSH 


_ 


R4 XOR R6 -> 


STK 


4 6 


74F 


72 


E8 


44 


79 


FF 


1 B 


& 


DA 8 


4 


2 


R 


11 - 


- 


- 


1 




377 


(377t9)SR4 - 


> R2 XE 


2 4 


750 


72 


EC 


64 


79 


FF 


1 B 


& 


DA 8 


6 


3 


R 


11 - 


- 


- 


1 




377 


(377i-g)SR6 - 


> R3 YE 


3 6 


751 


72 


E8 


8C 


70 


7F 


1 B 


& 


DA 


4 


4 


- 


— 


- 


- 


1 




177 


177SR4 -> R4 




4 


752 


72 


EC 


CC 


70 


7F 


1 B 


& 


DA 


6 


6 


- 


— 


- 


- 


1 




177 


177SR5 -> Re 




6 


753 


6E 


E8 


84 


79 01 


1 B 


OR 


DA 


4 


4 


R 


11 - 


- 


- 


1 




1 


(lt9) OR R4 


-> R4 


4 


754 


6E 


EC 


C4 


79 


01 


1 B 


OR 


DA 


6 


6 


R 


11 - 


- 


- 


1 




1 


(lt9) OR R6 


-> R6 


6 














XE.XH 


,XL 


IN R2,R4,R5 


































YE.YH 


,YL 


IN R3, 


R6, 


R7 




SIGN 


IN ; 


3TK 












755 


60 


E4 


6C 


60 


FF 


1 B 


+ 


AB 


2 


3 


- 


_ _ 


_ 


_ 





„ 


_ 


R2+R3 -> R3 


ZE 


2 3 


756 


0E 


6A 


80 60 


FF 


1 


OR 


ZA 


5 


- 


- 


— 


- 


- 





- 


- 


R5 -> g 




5 


757 


3C 


98 


03 


20 


0F 


#MUL16 


T 








- 


JSR 










XL'YL Q*T - 


> (R2,Q) 




758 


6E 


64 


2C 


60 


FF 


1 B 


OR 


ZA 


2 


1 


- 


- - 


- 


- 





- 


- 


R2 -> Rl 


ZL 


1 2 


759 


BE 


5A 


00 


60 


FF 


1 Q 


OR 


ZA 


5 


- 


- 


- - 


- 


- 





_ 


- 


R5 -> Q 




5 Q 


75A 


6E 


6D 


EC 60 


FF 


1 B 


OR 


ZA 


6 


T 


- 


— 


- 


- 


8 


- 


- 


R6 -> T 




6 T 


75B 


3C 98 


B3 20 


0F 


#MUL16 


T 








- 


JSR 










XL.YH 






75C 


60 62 


20 60 


FF 


1 B 


+ 


AQ 


1 


1 


- 


— 


- 


.. 





- 


- 


Rl+Q -> Rl 


ZL 


1 


75D 


62 


04 


00 


68 


FF 


1 B 


+ 


ZA 


2 





- 


- - 


- 


- 





- 


- 


R2+C -> R0 


ZH 


8 2 


75E 


0E 


68 


80 


68 


FF 


1 


OR 


ZA 


4 


_ 


_ 


_ _ 


_ 


~ 





_ 


_ 


R4 -> 




4 


75F 


6E 


6F 


EC 60 


FF 


1 B 


OR 


ZA 


7 


T 


- 


— 


- 


- 





~ 


- 


R7 -> T 




7 T 


760 


3C 


98 


83 


28 


8F 


#MUL15 


T 








- 


JSR 










XH.YL 






761 


60 


62 


20 60 


FF 


1 B 


+ 


AQ 


1 


1 


- 


— 


- 


- 





- 


- 


Rl+Q -> Rl 


ZL 


1 Q 


762 


60 


84 


80 


60 


FF 


1 B 


+ 


AB 


2 





- 


- - 


- 


- 


8 


- 


- 


R2+R0 -> R0 


ZH 


2 


763 


BE 


68 


BC 


60 


FF 


1 Q 


OR 


ZA 8 


4 


_ 


_ 


- _ 


_ 


- 





_ 


_ 


R4 -> Q 




4 Q 


764 


6E 


6D 


EC 


68 


FF 


1 B 


OR 


ZA 


6 


T 


- 


— 


- 


- 





- 


- 


R6 -> T 




6 T 


765 


3C 98 


83 20 


8F 


#MUL16 


T 








- 


JSR 










XH*YH 






766 


60 


60 


00 


68 


FF 


1 B 


+ 


AQ 8 








- 


- - 


- 


- 





~ 


- 


R04Q -> R0 


ZH 


8 Q 


767 


76 80 


47 


28 


BF 


#M1 




F 








_ 


JMP 










IF -F THEN 






768 


60 


E2 


20 


68 


FF 


1 B 


+ 


AB 8 


1 


1 


- 


— 


- 


- 





- 


- 


2»R1 -> Rl NORMALIZE 


1 


769 


60 


80 


00 


60 


FF 


1 B 


+ 


AB 








- 


— 


- 


- 





- 


- 


2»R0 -> RE 







76A 


66 


C6 64 


79 


81 


1 B 


-+ 


DA 1 


3 


3 


R 


11 - 


- 


- 


1 




1 


R3 - (ItO) 
END 
STK -> R7 


-> R3 


3 


76B 


6F 


E0 


EC 


40 


FF 


#M1 1 B 


OR 


DZ 8 


_ 


7 


_ 


_ _ 


_ 


S 





POP 


„ 


SIGN 


7 


76C 


66 


C6 


64 


72 


01 


1 B 


- + 


DA 1 


3 


3 


R 


2 - 


- 


- 


1 




1 


R3 - (200T9) 


-> R3 


3 


76D 


74 


4A 


07 


20 


0F 


#ZERO 


-C 








- 


JMP 










IF <0 GOTO ZERO 




76E 


3E 


40 


47 


20 


0F 


TRAP(6) 


F 








- 


JMP 










IF >= 400 OVERFLOW 




76F 


4F 


E0 


04 


68 


00 


1 B« 


OR 


DZ 8 





8 


R 


10 - 


- 


- 


8 


ALU 


ALU 


R0t8 -> R0 







770 


4F 


E2 


24 


68 


00 


1 B» 


OR 


DZ 


1 


1 


R 


10 - 


- 


- 


8 


ALU 


ALU 


Rlt8 -> Rl 




1 


771 


72 


E0 44 


78 


FF 


1 B 


& 


DA 





2 


R 


10 - 


- 


- 


1 




377 


(377t8)8R0 - 


> R2 


2 


772 


72 


E0 0C 


70 


7F 


1 B 


& 


DA 





8 


- 


- - 


- 


- 


1 




177 


177XR0 -> R0 







773 


72 


E3 


EC 


70 


FF 


1 B 


& 


DA 8 


1 


T 


- 


— 


- 


- 


1 




377 


377SR1 -> T 




1 T 


774 


6C 


E5 


EC 


60 FF 


1 B 


OR 


AB 8 


2 


T 


- 


— 


- 


- 


8 


- 


- 


R2 OR T -> T 


ZL 


2 T 


775 


6C 


E6 


00 


60 


FF 


1 B 


OR 


AB 


3 


8 


- 


— 


- 


- 


8 


- 


- 


R3 OR R0 -> 


R0 


8 3 


776 


72 


EE 


E4 


71 


01 


1 B 


S 


DA 8 


7 


7 


R 


1 - 


- 


- 


1 




1 


(ltl)SR7 -> 


R7 


7 


777 


2C 


EE 


00 


40 


0F 


1 - 


OR 


AB 


7 





- 


— 


- 


s 





PSH 


- 


R7 OR R0 -> 


STK ZH 


8 7 



4 3 2 10 



778 


0F 


E0 


0F 


E0 03 


779 


6F 


E0 


CC 


40 FF 


77A 


6F 


E0 


AC 


40 FF 


77B 


6F 


E0 


8C 


40 FF 


77C 


2C 


ED 


EC 


60 FF 


77D 


3E 


41 


07 


20 0F 


77E 


2C 


E8 


AC 


60 FF 


77F 


74 


41 


07 


20 0F 


780 


38 


E8 


CC 


40 0F 


781 


72 


E8 


44 


79 FF 


782 


72 


EC 


64 


79 FF 


783 


72 


E8 


8C 


70 7F 


784 


72 


EC 


CC 


70 7F 


785 


6E 


E8 


84 


79 01 


786 


6E 


EC 


C4 


79 01 



787 


68 


C4 


6C 


60 FF 


788 


64 


DE 


AC 


60 FF 


789 


64 


8C 


8C 


60 FF 


78A 


78 


E0 


27 


20 0F 


78B 


6F 


E0 


2C 


70 01 


78C 


62 


E6 


64 


79 01 


78D 


79 


18 


07 


28 0F 


78E 


72 


62 


2C 


60 FF 


78F 


60 


FE 


AC 


68 FF 


790 


60 


8C 


8C 


60 FF 


791 


6A 


C2 


4C 


70 08 


792 


7A 


88 


03 


20 0F 


793 


6E 


62 


0C 


60 FF 


794 


72 


62 


2C 


60 FF 


795 


7A 


08 


03 


20 0F 


796 


6F 


E0 


4C 


40 FF 


797 


76 


E0 


04 


79 01 


798 


62 


E6 


64 


72 01 


799 


74 


40 


27 


20 0F 


79A 


3E 


40 


47 


20 0F 


79B 


6C 


E6 


0C 


68 FF 


79C 


72 


E4 


44 


71 81 


79D 


2C 


E0 


4C 


40 BF 


79E 


6E 


63 


EC 


60 FF 


79F 


0F 


E0 0F 


E0 03 


7A0 


60 


EA 


AC 


68 FF 


7A1 


50 


88 


8C 


68 FF 


7A2 


60 


E2 


2C 


60 FF 


7A3 


64 


DE 


AC 60 FF 


7A4 


54 


8C 


8C 


60 FF 


7A5 


7A 


80 


27 


20 0F 


7A6 


62 


42 


2C 


60 FF 


7A7 


7A 


A8 


07 


20 0F 


7A8 


60 


FE 


AC 


60 FF 


7A9 


60 


8C 


8C 


68 FF 



Informatik ETH Zuerich Micro-Code-Assembler 'MIA' 
LABEL K DST FCT RS C A B SHFT SP PC S E BD BS COMMENT 



FDIV 



#D1 



#02 



#XDIV 



#XD1 



7AA 66 64 4C 60 FF #XD2 



1 

1 

1 

1 

1 



1 



1 - 

1 B 

1 B 



OR 
OR 
OR 
OR 

- OR 
TRAP(6) 

- OR 
#ZERO 



1 B 
1 B 



DZ 8 
DZ 8 
DZ 8 
DZ 8 
AB 
Z 
AB 8 
Z 

XOR AB 
& DA 
8 DA 
& DA 
S DA 
OR DA 
OR DA 



- 6 

- 5 

- 4 
6 T 

4 5 



11 - 
11 - 



11 - 
11 - 



jMP - ALU IR4 JMAP 

- S POP - STK -> R5 YH 

- S POP - STK -> R5 XL 

- S POP - STK -> R4 XH 

- - - - R6 OR T 

JMP IF Y=0 ZERO DIVIDE 

- - - - R4 OR R5 

JMP IF X=8 GOTO ZERO 

- S PSH - R4 XOR R6 -> STK 

- 1 377 (377t9)SR4 -> R2 XE 

- 1 377 (377Tg)£RB -> R3 YE 

- 1 177 177SR4 -> R4 

- 1 177 177SR6 -> R6 

- 1 1 (lt9) OR R4 -> R4 

- 1 1 (lt9) OR R5 -> R6 
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USED REGS 

Q 
6 
5 
4 
6 T 

4 5 



XE,XH,XL IN R2,R4,R5 
YE,YH,YL IN R3,R6,T 



1 B - 


AB 1 


2 


3 


- 


- - - 


- - 


- 


R2-R3 -> R3 QE 




2 3 


1 B -* 


AB 1 


T 


5 


- 


_ - _ 


- - 


- 


R5-T -> R5 (R-Y -> f 


^) 


5 T 


1 B -* 


AB C 


6 


4 


- 


— _ 


- - 


- 


FIRST DIV STEP 




4 6 


#D1 


S 








- JMP 






IF R >= V THEN 






1 B OR 


DZ 


- 


1 


- 





- 1 


1 


1 -> Rl (1 -> Q) 




1 


1 B + 


DA 


3 


3 


R 


11 - - 


- 1 


1 


R3+(lt9) -> R3 




3 


8 #D2 


T 








- JMP 






ELSE 






1 B & 


ZA 


1 


1 


- 


. . - 


- - 


- 


8 -> Rl (0 -> Q) 




1 


1 B * 


AB 


T 


5 


- 


- - - 


- - 


- 


R5+T -> R5 (R+Y -> 


R) 


5 T 


1 B * 


AB C 


6 


4 


- 


- - - 


- - 


- 


R4+R6 -> R4 
END 




4 6 


1 B - 


DA 1 


1 


2 


- 


- - - 


- 1 


10 


8-Rl -> R2 (8-Q -> N) 


1 2 


#XDIV 


T 








- JSR 






N DIV STEPS FOR QH 






IB OR 


ZA 


1 





- 





- - 


- 


Rl -> R9 SAVE QH 




1 


IB S 


ZA 8 


1 


1 


- 





- 8 - 


- 


-> Rl 




1 


#XDIV 


T 








- JSR 






16 DIV STEPS FOR QL 






1 B OR 


DZ 


- 


2 


- 


— - 


S POP 


- 


STK -> R2 SIGN 




2 


IB -& 


DA 


8 





R 


11 - - 


- 1 


1 


-(lt9)«R0 -> R0 







1 B + 


DA 


3 


3 


R 


2 - - 


- 1 


1 


R3 * (200tg) -> R3 QE 


3 


#ZERO 


S 








- JMP 






IF QE<0 GOTO ZERO 






TRAP(6) 


F 








- JMP 






OVERFLOW 






1 B OR 


AB 


3 





- 


- — 


- - 


- 


R3 OR R0 -> R0 




3 


1 B 8 


DA 


2 


2 


R 


1 - - 


- 1 


1 


(lTl)SR2 -> R2 




2 


1 - OR 


AB 8 





2 


- 


_ - . 


S PSH 


- 


R0 OR R2 -> STK QH 




8 2 


1 B OR 


ZA 8 


1 


T 


- 





- - 


- 


Rl -> T QL 




1 T 


1 Q OR 


DZ 


- 


- 


- 


- S JMP 


- ALU 


IR4 


JMAP 







R2 DIVISION STEPS 


















(R IN (R4,0), 


Q IN Rl, 


COUNT N IN R2) 




REPEAT 






1 B + 


AB 


5 


5 


- 





- - 


- 


2»R5 -> R5 (2*R -> 


R) 


5 


1 B + 


AB C 


4 


4 


- 


— - 


- - 


- 


2*R4 -> R4 




4 


1 B + 


AB 8 


1 


1 


- 


- - - 


- - 


- 


2«R1 -> Rl (2»Q -> 


Q) 


1 


IB -+ 


AB 1 


T 


5 


- 


- - - 


- - 


- 


R5-T -> R5 (R~Y -> 


R) 


5 T 


1 B -+ 


AB C 


6 


4 


- 


- — 


- - 


- 


R4-R6 -> R4 




4 6 


8 #XD1 


S 








- JMP 






IF R >= Y THEN 






IB + 


ZA 1 


1 


1 


- 





- 8 - 


- 


Rl*l (Q*l -> 


Q) 


1 


8 #XD2 


T 








- JMP 






ELSE 






IB + 


AB 


T 


5 


- 





- - 


- 


R5+T -> (R-^Y -> 


R) 


5 T 


IB + 


AB C 


6 


4 


- 


_ _ _ 


- - 


- 


R4+R6 -> R4 
END 




4 6 


IB -+ 


ZA 


2 


2 


- 





- - 


- 


R2-1 -> R2 




2 



4 3 2 10 



Informatik ETH Zuerich 

LABEL K DST FCT RS C A B 



7AB 


7A 


09 


07 


20 0F 




#XDIV 


-Z 






7AC 


BF 


E0 


49 


70 10 




1 B 


OR 


DZ 


- 


2 


7AD 


6E 


7E 


EC 


60 FF 


FCMP 


1 B 


OR 


ZA 


T 


7 


7AE 


6F 


E0 


CC 


40 FF 




1 B 


OR 


DZ 


- 


6 


7AF 


6F 


E0 


AC 


40 FF 




1 B 


OR 


DZ 


- 


5 


7B0 


6F 


E0 


8C 


40 FF 




1 B 


OR 


DZ 


- 


4 


7B1 


72 


7F 


EC 


60 FF 




1 B 


& 


ZA 


T 


T 


7B2 


38 


E8 


CC 


60 FF 




1 - 


XOR AB 


4 


6 


7B3 


7B 


78 


47 


20 0F 




#C1 




-F 






7B4 


2E 


68 


0C 


60 FF 




1 - 


OR 


ZA 


4 


- 


785 


7C 


10 


47 


20 0F 




#LSS 


F 






7B6 


7C 


58 


07 


20 0F 




#GTR 


T 






7B7 


68 


CA 


EC 60 FF 


#C1 


1 B 


_ 


AB 1 


5 


7 


7B8 


68 


88 


CC 


60 FF 




1 B 


- 


AB C 


4 


6 


7B9 


7B 


F0 


47 


20 0F 




#C2 




F 






7BA 


2C 


EC 


EC 


60 FF 




1 - 


OR 


AB 


6 


7 


7BB 


7C 


31 


07 


20 0F 




#EOL 


Z 






7BC 


2E 


68 


0C 


60 FF 




1 - 


OR 


ZA 


4 


- 


7BD 


7C 


10 


47 


20 0F 




#LSS 


F 






7BE 


7C 


58 


07 


20 0F 




#GTR 


T 






7BF 


2E 


68 


0C 


60 FF 


#C2 


1 - 


OR 


ZA 


4 


_ 


7C8 


7C 


50 


47 


20 0F 




#GTR 


F 






7C1 


2A 


7E 


0C 


40 0F 


#LSS 


1 - 


- 


ZA 


T 


- 


7C2 


0F 


E0 


0F 


E0 03 




1 


OR 


DZ 


- 


- 


7C3 


32 


7E 


0C 


40 0F 


#EOL 


1 - 


& 


ZA 


T 


_ 


7C4 


0F 


E0 


0F 


E0 03 




1 Q 


OR 


DZ 


- 


- 


7C5 


22 


5E 


0C 


40 0F 


#GTR 


1 - 


+ 


ZA 1 


T 


_ 


7C6 


0F 


E0 0F 


E0 03 


$ 


1 


OR 


DZ 


- 


- 



Micro-Code-Assembler 'MIA' 
SHFT SP PC S E BD BS COMMENT 



JMP 
RTN 



- 1 

- 
S 
S 

S 

- 

- 



- JMP 

- JMP 

- JMP 



- JMP 

- JMP 

- JMP 

- JMP 

- JMP 
S JMP 



20 



POP 

POP 
POP 



- 



UNTIL R2=0 

18 -> R2 

T -> R7 YL 

STK -> R6 YH 

STK -> R5 XL 

STK -> R4 XH 

-> T 

R4 XOR R5 

JUMP IF SIGNS EQUAL 

R4 
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USED REGS 



2 

7 T 

6 

5 

4 

T 

4 6 



R5-R7 -> R7 


5 7 


R4-R6 -> R6 


4 6 


JUMP IF X < Y 




R5 OR R7 


6 7 


R4 


4 



- 8 - - R4 

S PSH - -1 -> STK 

- ALU IR4 JMAP 



S PSH - -> STK 

- S JMP - ALU IR4 JMAP 

S 8 PSH - 1 -> STK 

- S JMP - ALU IR4 JMAP 



4 3 2 10 



7C7 


6F E0 04 62 04 


7C8 


7D A0 47 20 0F 


7C9 


60 E0 0C 60 FF 


7CA 


7C C0 47 20 0F 



7D8 2E 64 0C 40 0F 
7D9 0F E0 0F E0 03 



Inforniatik ETH Zuen'ch Micro-Code-Assembler 

LABEL K DST FCT RS C A B SHFT SP PC S E BD BS 



FFCT 



7CB 


32 


60 


00 


40 0F 


FLOAT 


7CC 


6F 


E0 


40 


40 FF 


FLOATl 


7CD 


2C 


FE 


40 


60 FF 




7CE 


7D 


81 


07 


20 0F 




7CF 


63 


E0 


24 


79 98 




7D0 


2E 


64 


00 


60 FF 




7D1 


7D 


60 


17 


20 0F 




7D2 


66 


C2 


24 


79 01 


#F1 


7D3 


60 


FF 


EC 


60 FF 




7D4 


60 


84 


40 


60 FF 




7D5 


7D 


28 


17 


20 0F 




7D6 


72 


E4 


4C 


70 7F 


#F2 


7D7 


6C 


E2 


40 


60 FF 





#F3 



IB OR DZ - R 2 - - - 
FIX F - JMP 

IB + AB000- 

FLOATl F - JMP 

PROCEDURE FLOAT(C: CARDINAL); REAL 
PROCEDURE FL0AT1(D; DOUBLE): REAL 



1 - & ZA 

IB OR DZ - 

1 - OR AB T 

#F3 Z 
IB + DZ - 

1 - OR ZA 2 
#F2 H 
IB -+ DA 1 1 
IB + AB T 
IB * AB C 2 
#F1 -H 



1 B 
1 B 

1 - 
1 Q 



8 DA 2 

OR AB 1 

OR ZA 2 

OR DZ - 



2 - - 
2 - - 

1 R 11 



R 11 



JMP 



JMP 



JMP 



«A ' 
COMMENT 
ALU IR IRt2 -> R0 
- - R0«2 -> R0 
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USED REGS 





S PSH 


- 


-> STK 





S POP 


- 


STK -> R2 XH 


2 


- - 


- 


T OR R2 

IF # THEN 


2 T 


- 1 


230 


(230t9) -> Rl 


1 


- - 


~ 


R2 

IF -H THEN 


2 


- 1 


1 


REPEAT Rl-(lt9) 


1 


- - 


- 


2»T -> T 


T 


- - 




2«R2 -> R2 
UNTIL H 
END 


2 


- 1 


177 


177 S R2 -> R2 


2 


- - 


- 


Rl OR R2 -> R2 

END 


1 2 


S PSH 


- 


R2 -> STK XH 


2 



S JMP - ALU IR4 JMAP 



7DA 60 E0 00 60 FF 
7DB 7D D0 47 20 0F 



FIX IB + AB 

FIXl F - JMP 



- 



R0*2 -> R0 



Informatik ETH Zuerich Micro-Code-Assembler 'MIA' 
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« PROCEDURE FIX(X: REAL); CARDINAL 

« PROCEDURE FIX1(X: REAL; BIAS: CARDINAL); DOUBLE 
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USED REGS 



7DC 


4F 


FF E4 


59 


98 


FIX 


1 B. OR 


DZ 8 


T 


T 


R 


11 


- 


- 


S 


1 




230 


T -> STK, 23atg -> T 


T 


7DD 


BF 


E8 BC 


40 


FF 


FIXl 


1 Q OR 


DZ 


- 


- 


- 


- 


- 


- 


s 





POP 


- 


STK -> Q XL 





7DE 


6F 


E0 4C 


40 


FF 




1 B OR 


DZ 


- 


2 


- 


- 


- 


- 


S 





POP 


- 


STK -> R2 XH 


2 


7DF 


2C 


64 0C 


60 


FF 




1 - OR 


AQ 


2 


- 


- 


- 


- 


- 


- 





- 


- 


R2 OR 8 


2 


7E0 


7E 


Al 07 


20 


8F 




#FX2 


Z 










- 


JMP 










IF #8 THEN 




7E1 


72 


E4 24 


79 


FF 




1 B & 


DA 8 


2 


1 


R 


11 


- 


- 


- 


1 




377 


(377t9)SR2 -> Rl 


1 2 


7E2 


72 


E4 4C 


70 


7F 




IB & 


DA 8 


2 


2 


- 


- 


- 


- 


- 


1 




177 


177 S R2 ->R2 


2 


7E3 


6E 


E4 44 


79 


81 




1 B OR 


DA 8 


2 


2 


R 


11 


- 


- 


- 


1 




1 


(lt9) OR R2 -> R2 


2 


7E4 


64 


C3 EC 


68 


FF 




IB -+ 


AB 1 


1 


T 


- 


- 


- 


- 


- 


9 


- 


- 


T - Rl -> T 


1 T 


7E5 


3E 


40 47 


20 


BF 




TRAP(6) 


F 










- 


JMP 










OUT OF RANGE 




7E6 


7E 


Al 07 


28 


BF 




#FX2 


Z 










- 


JHP 










IF #0 THEN (NORM) 




7E7 


82 


64 4C 


60 


FF 


#FX1 


1 BQR * 


ZA 8 


2 


2 


- 


- 


- 


- 


- 





- 


- 


REPEAT (R2,Q)/2 


2 Q 


7E8 


66 


DF E4 


79 


01 




1 B -* 


DA 1 


T 


T 


R 


11 


- 


- 


- 


1 




1 


T - (ItO) -> T 


T 


7Eg 


7E 


79 07 


20 


BF 


« 
« 


#FX1 


-Z 












JMP 










UNTIL T=0 
END 
END 




7EA 


6D 


61 EC 


60 


FF 


#FX2 


1 B OR 


ZQ 8 


- 


T 


- 


- 


~ 


- 


- 


8 


- 


- 


Q -> T 


T Q 


7EB 


2E 


60 00 


68 


FF 




1 - OR 


ZA 8 





- 


- 


- 


- 


- 


- 





- 


- 


R0 





7EC 


7E 


F8 47 


28 


BF 




#FX3 


-F 










- 


JMP 














7ED 


2E 


64 0C 


48 


BF 




1 - OR 


ZA 8 


2 


- 


- 


- 


- 


- 


S 





PSH 


- 


R2 -> STK HI 


2 


7EE 


0F 


E0 0F 


E8 


83 




1 Q OR 


DZ 8 


- 


- 


- 


- 


S 


JMP 


- 


8 


ALU 


IR4 


JMAP 





7EF 


2E 


64 0C 


60 


FF 


#FX3 


1 - OR 


ZA 8 


2 


_ 


_ 


_ 


_ 


_ 


_ 





_ 


_ 


R2 


2 


7F0 


3E 


49 07 


20 


BF 




TRAP(6) 


-Z 










- 


JMP 










OVERFLOW 




7F1 


0F 


E0 0F 


E8 


03 




1 Q OR 


DZ 8 


- 


- 


- 


- 


s 


JMP 


- 


8 


ALU 


IR4 


JMAP 


Q 



7F2 50 A8 03 28 BF 


#ENDREPL 8 EXITREPL T 


7F3 BF E0 0F E0 83 






1 Q OR DZ 8 








POP(S); 








POP(P) 










POP(H) 










POP(G) 










POP(L) 










POP(M) 










POP(T) 










END REPL 








END 


DISPLAYHANE 


)LER; 



- JSR 
- S JMP 



8 ALU IR4 JMAP 



.ORG 6008 
.MAP 246 



ESCAPE- INSTRUCTION; JUMP TO THE BEGINNING OF THE 4-TH K 
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Table of the MAP Entries 










20 


40 


60 


88 


A0 


C0 


E0 









40 


100 


140 


200 


240 


398 


340 





8 


10 


52 


90 


AC 


BE 


157 


233 


319 


1 


1 


10 


56 


94 


B8 


C3 


15C 


24B 


327 


2 


2 


10 


5C 


9A 


B8 


CB 


161 


265 


339 


3 


3 


18 


64 


9A 


B8 


Dl 


16F 


282 


33A 


4 


4 


18 


6E 


9A 


B8 


DB 


17D 


285 


33B 


5 


5 


10 


6E 


9A 


B8 


E8 


183 


28A 


33C 


6 


6 


10 


6E 


9A 


B8 


Eg 


C08 


292 


33D 


7 


7 


10 


6E 


9A 


Ba 


ED 


18B 


297 


342 


8 


18 


10 


6E 


9A 


B8 


F6 


1A6 


29A 


34E 


g 


11 


18 


6E 


9A 


B0 


FB 


1B7 


29E 


356 


A 


12 


10 


6E 


gA 


B0 


401 


IBE 


2A1 


359 


B 


13 


18 


6E 


9A 


B0 


405 


1C2 


2A5 


360 


c 


14 


18 


6E 


9A 


B8 


408 


1C6 


2A9 


368 


D 


15 


10 


6E 


9A 


B0 


488 


ICA 


2AD 


375 


E 


16 


10 


6E 


gA 


B8 


4BC 


ICE 


2B1 


38C 


F 


17 


10 


6E 


gA 


B8 


410 


IDS 


2B3 


38F 


IB 


28 


12 


71 


9D 


B4 


100 


IDC 


2B6 


•394 


11 


21 


400 


75 


Al 


69 


106 


1E0 


2B8 


397 


12 


22 


14 


7B 


A7 


B9 


118 


1E7 


2BA 


397 


13 


23 


17 


83 


A7 


B9 


118 


lEC 


2BC 


397 


14 


24 


IC 


8D 


A7 


B9 


124 


1F5 


2BE 


397 


15 


25 


IF 


8D 


A7 


B9 


12A 


IFA 


2C4 


397 


16 


26 


22 


8D 


A7 


B9 


138 


IFC 


2C6 


397 


17 


27 


25 


8D 


A7 


B9 


13E 


IFE 


209 


397 


18 


38 


2B 


8D 


A7 


B9 


149 


20F 


2CB 


397 


19 


31 


2E 


8D 


A7 


B9 


14A 


212 


2CE 


397 


lA 


32 


33 


8D 


A7 


B9 


14B 


215 


2D1 


397 


IB 


33 


36 


8D 


A7 


B9 


14C 


21B 


2E5 


397 


IC 


34 


3A 


8D 


A7 


B9 


14D 


221 


400 


397 


ID 


35 


3D 


8D 


A7 


B9 


14E 


227 


2F8 


397 


IE 


36 


44 


8D 


A7 


B9 


152 


22A 


2FA 


397 


IF 


37 


4D 


8D 


A7 


B9 


156 


22F 


2FB 


397 



